[已解决]帮忙看看xcopy如何替换成移动

ff410202631

我在论坛看到一段代码是拷贝文件名中有“某某”字样的文件到目的文件夹，但我想换成移动move则不行啊，有什么单词可以替换的，或其他方法
代码如下：

Sub  VBA生成批处理文件并执行()
ChDrive "E"
ChDir "E:\a"
Open "1.bat" For Output As #1
Print #1, "xcopy d:\a\*xht*.* e:\a /s"
Close #1
Shell "cmd.exe", vbNormalFocus
Shell "1.bat", vbNormalFocus
End Sub
'拷贝文件名中有xht字样的文件到目的文件夹
移动move则不行，只能用xcopy，就连copy都无效

最佳答案

月排行榜 / 总排行榜

djyjysxxs

2015-10-14 09:42

这涉及DOS命令，与VBA关系不大
xcopy最后那个参数/s 你可以百度一下。
换成copy无效是因为copy没有/s，你把/s去了就通过了
要移动则换成move，同样要去掉/s

另：好象Shell "cmd.exe", vbNormalFocus可以去掉，具体你试试

跳转到最佳答案楼层

djyjysxxs

这涉及DOS命令，与VBA关系不大
xcopy最后那个参数/s 你可以百度一下。
换成copy无效是因为copy没有/s，你把/s去了就通过了
要移动则换成move，同样要去掉/s

另：好象Shell "cmd.exe", vbNormalFocus可以去掉，具体你试试

ff410202631

谢谢版主，我当初去掉/S的时候把空格删掉了，就是不行，还需要有个空格就OK