I copy all these files into a new folder
File names are of standard = "XXXX MmmYy"
Thus I need to change their names to ""XXXX Mmm-1Yy"
So the code that I have is
Const Dest = "C:\Mis documentos\12 December 2005"
Dim FSO As Object
Dim f, f1, fc
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.GetFolder(Dest)
Set fc = f.Files
For Each f1 In fc
f1.Name = Mid(f1.Name, 1, (Len(f1.Name) - 9)) &
Dateserial(year,month-1)
Next
It stops in the For next loop
Can someone help?