con FileSystemObject
codice:
 
Dim fso

   Set fso = CreateObject("Scripting.FileSystemObject")

   fso.MoveFile Origine, Destinazione