Copy a file in the file system
Supply a source file name and the destination file name
CopyFile(“c:\temp\firstfile.txt”, c:\temp\secondfile.txt”)
Function Copyfile(ByVal sSource As String, ByVal sDest As String) As Boolean
FileCopy(sSource, sDest)
If Err.Number = 0 Then Copyfile = True
End Function