【書式】
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