【VBA】Change folder name

VBA Code

As an example, change the folder name of the folder “hogehoge” to “piyopiyo”.

Option Explicit

Sub sampleProc()
    
    Dim fso As Object
    Dim folderFullPath As String
    Dim newFolderName As String
    
    'Set "Folder path before change"
    folderFullPath = "C:\Users\user\Desktop\hogehoge"
    'Set "Folder name after change"
    newFolderName = "piyopiyo"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'Rename Folder
    fso.GetFolder(folderFullPath).Name = newFolderName
    
    Set fso = Nothing
    
End Sub

Result

You changed folder name！

FYI

For more information about following, see the following official online manual:

●“GetFolder method” of “FileSystemObject”

●“Name property” of “Folder Object”