Rename documents driven by excel

[WildAngus]

Here's something I've always thought should be possible but never been able to do.....

Is there a way of renaming a set of sequentially named files into another sequentially named format using excel or VBA or a combination?

My example is a batch of photograps names as, DSC0001, DSC0002, DSC0003, etc
and I want to rename these as: 2009-12-01-001, 2009-12-01-002, 2009-12-01-003, etc

so my idea is to use col A for the old value and col C for the new value and open document as shown in col A and save it as the value in col B, moving down the list.

Is this feasible? or is there an even easier way?

Any help would be welcome.

 

[the_original_invisible]

Just about to go home for the eve, but you should be able to adapt this to meet your requirements pretty easily. Test it on a small folder first

Sub ReNameFiles1()
Dim path As String, filespec As String
Dim CurrentName As String, NewName As String
path = "I:\Claims\Lees Folder (Do not remove)\NorthernSoulCD001\" ' your path
For i = 1 To 14605 ' your range 
Range("C1").Value = Range("A" & i).Value
Range("D1").Value = Range("B" & i).Value
CurrentName = Range("C1").Value
NewName = Range("D1").Value
Name path & CurrentName As path & NewName
Next i
End Sub

Lee

 

[amitcohen]

I love this solution!!

Want to add a note here that the file name (The one you about to change)
must contain its suffix. myfile.xls etc'

Thanks
Amit