Change names of Files in a folder

T

TISR

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?
 
B

Bob Phillips

Not sure what names you are trying to give, but try this

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)
For Each f1 In f.Files
Name f1.Path As Mid(f1.Name, 1, (Len(f1.Name) - 9)) & _
Format(DateSerial(Year(Date), Month(Date) - 1, 1), "yyyy-mm")
Next f1

Take backups first!

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top