Ciao a tutti
Mi sa che commetto un errore sulla scrittura del codice di fso.Rename
Set fso = CreateObject("Scripting.FileSystemObject")
'Set file = FSO.GetFile("C:\Users\fax\Desktop\Test\" & param)
Set MyFolder = fso.GetFolder("C:\Users\fax\Desktop\Test")
Set MyFile = fso.GetFile("C:\Users\fax\Desktop\Test\ciao.txt")
Do
fso.Rename MyFile, (MyFolder & "xxxxxx.txt")
Loop Until Err.Number = 0
|