文件夹重命名 

1 Sub y3231057()
2     Set aa = CreateObject("Scripting.FileSystemObject")
3     aa.MoveFolder "D:\1", "D:\2"
4 End Sub
posted @ 2011-07-08 16:49  Statmoon  阅读(230)  评论(0)  编辑  收藏  举报