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