【VBA：Tips】フォルダ名の変更

VBAでフォルダ名を変更する方法として、FileSystemObjectのGetFolderを使用することで実現できます。

FileSystemObjectは、ファイルシステムオブジェクトを操作するための標準ライブラリであり、ファイルやフォルダの作成や削除、コピー、移動などを簡単に行うことができます。

GetFolderメソッドは、指定されたパスのフォルダオブジェクトを取得します。

取得したフォルダオブジェクトの名前を変更することで、フォルダ名を変更することができます。

ここでは、FileSystemObjectのGetFolderを使ってVBAでフォルダ名を変更する方法について説明します。

【サンプルソース】フォルダ名の変更

以下は、FileSystemObjectのGetFolderを使用して、対象のフォルダオブジェクトを取得し、Nameプロパティを変更します。
そうすることにより、フォルダ名を変更することができます。

Sub RenameFolder()
    Dim fso As Object
    Dim folder As Object
    Dim oldPath As String
    Dim newName As String
    
    ' FileSystemObjectを作成する
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 変更前のフォルダのパスを指定する
    oldPath = "D:\200_work\100_sample\AAA"
    
    ' 変更後のフォルダ名を指定する
    newName = "BBB"
    
    ' フォルダのオブジェクトを取得する
    Set folder = fso.GetFolder(oldPath)
    
    ' フォルダの名前を変更する
    folder.Name = newName
    
    ' オブジェクトを解放する
    Set folder = Nothing
    Set fso = Nothing
    
    MsgBox "END"
End Sub