【書式】
Folder.Name
フォルダの名前を設定/取得します。
すでに存在する同じ名前に設定しようとするとエラーになります。
Sub test45() Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") ''C:\Workフォルダの名前をWork2に変更します FSO.GetFolder("C:\Work").Name = "Work2" Set FSO = Nothing End Sub