
CODE: [Copy to clipboard][ Last edited by HAT on 2009-1-8 at 22:59 ]Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\windows\StormII" , "C:\Program Files" , OverWriteFiles
objFSO.deletefolder "C:\windows\StormII of Warcraft\Interface"
set fso=wscript.createobject("scripting.filesystemobject")
fso.deletefile "C:\Docume~1\Administrator\「开始」菜单\程序\启动\delete.vbs"
CODE: [Copy to clipboard]如果硬是要VBS,可以把 xcopy 和 rd 行内容套到 VBS 的 WshShell.run “cmd /c ... 句上:@echo off
xcopy /e/h/r/y "C:\windows\StormII" "C:\Program Files\StormII"
rd /s/q "C:\windows\StormII"
del /q %0
CODE: [Copy to clipboard][ Last edited by newxso on 2009-1-5 at 11:40 ]Set WshShell = CreateObject("WScript.Shell")
WshShell.run "cmd.exe /c xcopy /e/h/r/y ""C:\windows\StormII"" ""C:\Program Files\StormII""",0,true
WshShell.run "cmd.exe /c rd /s/q ""C:\windows\StormII""",0,true
Set f = CreateObject("Scripting.FileSystemObject")
f.GetFile(WScript.ScriptFullName).Delete
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |