Renaming folders (from column OldFolderName to NewFolderName)

[shuchman]

This is probably really basic but I'm having a bit of trouble,

I have an excel sheet with 2 columns, one is oldname and the other is newname and I have to rename folders listen in oldname to their matching newname (right next to them, rename a2 -> b2).
The problem is also that there can be a situation where 2 folders from Oldname now have the same name (a2->b2 , a3->b3 where b3=b2) so basically they need to be re-named and merged.

I'm not very skilled at VBA and I hope it's not too rude for me to ask for help without at least having some basic input of a code, thank you!

 

[Zot]

Try this

Sub RenameMyFolders()

Dim n As Long
Dim OldFolderName As String, NewFolderName As String
Dim objFileSystem As Object

Set objFileSystem = CreateObject("Scripting.FileSystemObject")

' Loop through list name
For n = 2 To 7
    'Path for old folder and renamed folder. Modify to your need
    OldFolderName = "C:\Users\username\Desktop\" & Range("A" & n) & "\"
    NewFolderName = "C:\Users\username\Desktop\" & Range("B" & n) & "\"
    'Check if the folder existed
    If objFileSystem.FolderExists(OldFolderName) = True Then
        'Rename the original folder
        Name OldFolderName As NewFolderName
    End If
Next

End Sub