Question

我Set vbs=CreateObject("WScript.shell") desktop=vbs.SpecialFolders(4)&"\" vbs.run("xcopy 我的资料.t

Set vbs=CreateObject("WScript.shell")
desktop=vbs.SpecialFolders(4)&"\"
vbs.run("xcopy 我的资料.txt " & chr(34) & desktop & chr(34) & " /k /y"),vbHide

这是复制文件的VBS代码，但我是要复制文件夹到桌面，该怎么改呢，而且要复制文件夹的全部属性，或者用VBS修改桌面文件夹的图标。麻烦高手改一下。

Answer 1

复制目录的话要加上文件夹名,然后最主要的就是修改xcopy的参数,加上/e就好了
Set vbs=CreateObject("WScript.shell")
desktop=vbs.SpecialFolders(4)&"\"
vbs.run("xcopy D:\a " & chr(34) & desktop & "a\" & chr(34) & " /k /e /y"),vbHide