VB6复制文件的区别

1'先声明复制函数
2Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

1s = App.Path '当前目录
2 rst = CopyFile(s & "\1.txt",  "D:\1.txt", 0) 
3If rst = 0 Then
4    MsgBox "替换不成功！"
5Else
6    MsgBox "替换成功！"
7End If

1s = App.Path '当前目录
2FileCopy s & "\1.txt",  "D:\1.txt"