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

相关文章: