Inizia con questo:

Sub Manip_Files()
Dim fso as New FileSystemObject, txtfile, fil1, fil2
Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)
MsgBox "Scrittura del file in corso"
' Scrive una riga.
txtfile.Write ("Questo è un test.")
' Chiude il file in modo che non vi si possa più scrivere.
txtfile.Close
MsgBox "Spostamento in corso del file in c:\tmp"
' Imposta un handle al file nella directory principale di C:\.
Set fil1 = fso.GetFile("c:\testfile.txt")
' Sposta il file nella directory \tmp.
fil1.Move ("c:\tmp\testfile.txt")
MsgBox "Copia in corso del file in c:\temp"
' Copia il file in \temp.
fil1.Copy ("c:\temp\testfile.txt")
MsgBox "Eliminazione dei file in corso"
' Imposta gli handle alle posizioni correnti dei file.
Set fil1 = fso.GetFile("c:\tmp\testfile.txt")
Set fil2 = fso.GetFile("c:\temp\testfile.txt")
' Elimina i file.
fil1.Delete
fil2.Delete
MsgBox "Operazione terminata"
End Sub