中国DOS联盟

求大虾帮忙写一个VBS，要求：将C:\WINDOWS\StormII这个文件夹（注意：是文件夹，不是文件），复制到C:\Program Files，直接覆盖已经存在的文件，不提示。然后删除C:\WINDOWS\StormII，之后删除VBS本身。我在百度找的都不行。谢谢。下面这个是我写的，不行.
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"

[ Last edited by HAT on 2009-1-8 at 22:59 ]

用VBS复制移动文件或文件夹，有时会出现权限不够问题，如果目标目录上存在同名且具有只读属性的文件或文件夹，则覆盖将失败。倒不如BAT简便：
@echo off xcopy /e/h/r/y "C:\windows\StormII" "C:\Program Files\StormII" rd /s/q "C:\windows\StormII" del /q %0
如果硬是要VBS，可以把 xcopy 和 rd 行内容套到 VBS 的 WshShell.run “cmd /c ... 句上：
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

[ Last edited by newxso on 2009-1-5 at 11:40 ]

谢谢newxso的帮助。