Copy a file using CopyFile API
Copy a file using CopyFile API
Rate Copy a file using CopyFile API
(2(2 Vote))
Dim retval As Long ' return value
' copy the file
retval = CopyFile("D:\sample.txt", "D:\example.txt", 1)
If retval = 0 Then ' failure
MsgBox "Copy failed -- D:\example.txt already exists."
Else ' success
MsgBox "Copy succeeded."
End If
End
End Sub
Copy a file using CopyFile API Comments
No comments yet — be the first to post one!
Post a Comment