文件夹重命名

Sub y3231057()
    Set aa = CreateObject("Scripting.FileSystemObject")
    aa.MoveFolder "D:\1", "D:\2"
End Sub