Renaming files in a directory

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How do I rename the files in a directory? I have many reports in directory I
can loop through each file but how do i rename it? I have an input box to
assign a NewFileName. I want to keep the date suffix and change the first
part of the filename. This jams in the last line attempts. Please help. I
feel like i'm shooting inthe dark now.

If Right(myName, 3) = "xls" Then
OldFileName = myPath & myName
NameDate = Right(myName, 12)
NewFileName = (myPath & NewName & " " & NameDate)
Workbooks(OldFileName).SaveAs (NewFileName)
'Workbooks(OldFileName).Name = (NewFileName)

TIA
Candyman
 
As long as you're not trying to rename the file that you are currently
working on you can use the Name function.

Name OldFileName as NewFileName

This way you don't have to use "SaveAs"
 
Back
Top