I had a similar issue and have used the following code to create a backup file. http://www.rondebruin.nl/folder.htm

Sub Copy_One_File()

    FileCopy "G:\Database\t.txt", "G:\Database\Archive\tcopy.txt" 

End Sub
You may also want to check out Ron De Bruin, he has many helpful tips for many versions of Excel.

PS - You may want to edit your post and wrap your code by highlighting it and clicking on the #, it's per the forum rules