标题: VBS脚本是否有批处理的del %0类似功能？
[打印本页]
作者: heicai
时间: 2007-5-9 14:13
标题: VBS脚本是否有批处理的del %0类似功能？
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(2000)
Wsh.Run "挂机锁.exe"
Set Wsh=NoThing
WScript.quit
我想让这VBS像批处理del %0一样的删除自身文件，能否实现？
作者: lxmxn
时间: 2007-5-9 14:24
能实现这样的功能，下面的例子可以参考下。
WScript.Echo WScript.ScriptFullName
Set a=CreateObject("Scripting.filesystemobject")
a.DeleteFile(WScript.ScriptFullName)
作者: heicai
时间: 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)
怎么提示 对象不支持此属性或方法：’DeleteFile‘
作者: baomaboy
时间: 2007-5-9 14:40
要用文件系统对象
CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptFullName)
作者: heicai
时间: 2007-5-9 14:44
Originally posted by baomaboy at 2007-5-9 02:40 PM:
要用文件系统对象CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptFullName)
请问删指定文件的语句是什么？？我想执行后再删除”挂机锁.exe“
作者: lxmxn
时间: 2007-5-9 15:04
Originally posted by heicai at 2007-5-9 14:44:
请问删指定文件的语句是什么？？我想执行后再删除”挂机锁.exe“
4楼不是已经给出了答案了吗？
作者: lxmxn
时间: 2007-5-9 15:05
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换成别的就没有错误提示了。具体原因我也不知道，汗一个。
作者: baomaboy
时间: 2007-5-9 15:31
Originally posted by heicai at 2007-5-9 14:44:
请问删指定文件的语句是什么？？我想执行后再删除”挂机锁.exe“
一样啊，把"挂机锁.exe"的完整路径写入就可以
作者: baomaboy
时间: 2007-5-9 15:34
不过有个问题需要确认，“挂机锁.exe”是常驻进程，还是运行一下就退出了，不然是删除不了的，即使删了，那不有反了初衷了吗。