Excel VBA FileSystemObjectでフォルダ名を変更する

• FileSystemObjectは、ファイルやフォルダを操作できるオブジェクト
• 参照設定でMicrosoft Scripting Runtimeにチェックを入れる

Usage

• パスからフォルダ名を取得するには、GetFolder(fullPath)を使用する

' フォルダ名を変更する
Public Sub ChangeDirectoryName(ByVal dirPath As String)

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim newName As String
    newName = "new_directory_name"

    ' フォルダ名を変更
    fso.GetFolder(dirPath).Name = newName

    Debug.Print fso.GetFolder(dirPath).Name
End Sub

• もし既に存在するフォルダ名を新しいフォルダ名に指定した場合、エラーとなる
• エラーを回避するには、新しいフォルダ名の存在チェックが必要

If fso.FolderExists("C:\" & newFolderName) = False Then
  ' 新しいフォルダ名が存在しなければ、フォルダ名を変更する
End If

Reference

• FileSystemObject オブジェクト
• GetFolder メソッド
• FolderExists メソッド