Для этого можно воспользоваться методом MoveFile объекта FileSystemObject:

Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.MoveFile "file1.txt", "file2.txt"