Have to rename the folders in a location. New name as per data in a table below.
Sample Data
I managed to get the code for renaming the folder, however, this works for one folder only. I want to rename the folders as above in one go. Please assist.
Sample Data
Old Name | New Name |
1234 | ABCD |
2345 | EFGH |
5678 | SCHO |
8937 | MIBZ |
I managed to get the code for renaming the folder, however, this works for one folder only. I want to rename the folders as above in one go. Please assist.
Code:
'VBA Rename a Folder
Sub VBAF1_Rename_Folder()
'Variable declaration
Dim sFolder_OldName As String
Dim sFolder_NewName As String
'Existing Folder Name
sFolder_OldName = "C:\VBAF1\Sample\"
'Define New Name of folder to change
sFolder_NewName = "C:\VBAF1\Test\"
'Check Specified folder exists or not
If Dir(sFolder_OldName) <> "" Then
'Rename Folder using Name function
Name sFolder_OldName As sFolder_NewName
MsgBox "Folder has renamed.", vbInformation, "VBAF1"
Else
MsgBox "Folder is not available to rename.", vbInformation, "VBAF1"
End If
End Sub