'先声明函数

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String,ByVal lpNewFileName As String,ByVal bFailIfExists As Long) As Long

'D:\1.txt复制到C:\2.txt-----0表示文件存在时就覆盖

rst = CopyFile("D:\1.txt","C:\2.txt",@H_403_53@0)

If rst = 0 Then MsgBox "替换不成功！" Else MsgBox "替换成功！" End If