中国DOS联盟

Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(2000)
Wsh.Run "挂机锁.exe"
Set Wsh=NoThing
WScript.quit

我想让这VBS像批处理del %0一样的删除自身文件，能否实现？

能实现这样的功能，下面的例子可以参考下。

WScript.Echo WScript.ScriptFullName

Set a=CreateObject("Scripting.filesystemobject")

a.DeleteFile(WScript.ScriptFullName)

Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(2000)
Wsh.Run "挂机锁.exe"
Set Wsh=NoThing
Wsh.DeleteFile(WScript.ScriptFullName)

怎么提示 对象不支持此属性或方法：’DeleteFile‘

要用文件系统对象

CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptFullName)

Originally posted by baomaboy at 2007-5-9 02:40 PM:
要用文件系统对象

CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptFullName)

请问删指定文件的语句是什么？？我想执行后再删除”挂机锁.exe“

Originally posted by heicai at 2007-5-9 14:44:

请问删指定文件的语句是什么？？我想执行后再删除”挂机锁.exe“

4楼不是已经给出了答案了吗？

Originally posted by heicai at 2007-5-9 14:33:
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(2000)
Wsh.Run "挂机锁.exe"
Set Wsh=NoThing
Wsh.DeleteFile(WScript.ScriptFullName)

怎么提示 对 ...

这里的Wsh换成别的就没有错误提示了。具体原因我也不知道，汗一个。

Originally posted by heicai at 2007-5-9 14:44:

请问删指定文件的语句是什么？？我想执行后再删除”挂机锁.exe“

一样啊，把"挂机锁.exe"的完整路径写入就可以

不过有个问题需要确认，“挂机锁.exe”是常驻进程，还是运行一下就退出了，不然是删除不了的，即使删了，那不有反了初衷了吗。