parscon
04-24-2013, 05:26 AM
I have a folder with 1800 files and also i have the list of their name and also i want to change the name of them to new name .(also i have the ne name list)
I write this VBA but this code just rename 1 item how can i add other item to my list ?
Thank you .
Sub Rename()
Dim FileName As String
Dim NewFileName As String
On Error Resume Next
FileName = "E:\1.jpg"
NewFileName = "E:\apple-A43.jpg"
Name FileName As NewFileName
End Sub
I write this VBA but this code just rename 1 item how can i add other item to my list ?
Thank you .
Sub Rename()
Dim FileName As String
Dim NewFileName As String
On Error Resume Next
FileName = "E:\1.jpg"
NewFileName = "E:\apple-A43.jpg"
Name FileName As NewFileName
End Sub