文件夹重命名

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

【推广】免费学中医，健康全家人

原文地址：https://www.cnblogs.com/leolis/p/2101171.html