Here are the methods you can use
Dim FSO As FileSystemObject
' You need to add Microsoft Scripting Runtime library to access the FileSystemObject
Set FSO = New FileSystemObject
' Copy without overwriting files
FSO.CopyFile "c:\temp.xls", "d:\temp.xls", False
' Copy with overwriting files
FSO.CopyFile "c:\temp.xls", "d:\temp.xls", True
' Without using File System Object
FileCopy "c:\temp.xls", "d:\temp.xls"
http://www.dotnetdud.blogspot.com
VBA Tips & Tricks (
http://www.vbadud.blogspot.com)