Rename file in dir...

[sal21]

In c:\mydir\ have a series of .xls file, similar:

2500-55545.xls
2500-34344.xls
...
2500-9999.xls

Note:
the first 5 character are the same for all files.

I need to rename all file with AAAA-2500-.......xls

in effect insert AAAA- before the name of file... fow to?

final goal:
AAAA-2500-55545.xls
AAAA-2500-34344.xls
...
AAAA-2500-9999.xls

[HansV]

Here you go:

Code: Select all

Sub RenameFiles()
    Const strPath = "C:\MyDir\"
    Dim strFile As String
    strFile = Dir(strPath & "2500-*.xls")
    Do While strFile <> ""
        Name strPath & strFile As strPath & "AAAA-" & strFile
        strFile = Dir
    Loop
End Sub

[Rudi]

Unless you needed code for reasons, you could have used ReNamer.
Excellent app for renaming files in a jiffy!!