d:\\1.txt
d:\\2.txt
Set fso = CreateObject("Scripting.FileSystemObject")Fso.CopyFolder "源文件路径", "复制的文件路径", True //True:覆盖,False:不覆盖Fso.MoveFolder "源文件路径", "复制的文件路径" //这句话没有权限,我本人不清楚原因。
可以用复制文件,再删除文件代替移动:
Set fso = CreateObject("Scripting.FileSystemObject")
Fso.CopyFolder "源文件路径", "复制的文件路径", True
Fso.DeleteFolder "源文件路径"
上面代码本人测试过,已经成功了。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)