标题: [问题求助] VBS如何在指定日期之后运行指定文件后自删? [打印本页]
作者: ln450 时间: 2011-11-23 08:56 标题: VBS如何在指定日期之后运行指定文件后自删?
要求:在某一设定日期(如2012年1月15日)后,无论是哪一天,只要开机或重启,就自动运行指定的文件,如1234.bat。运行后删除自身和1234.bat。谢谢!
Set ws=WScript.CreateObject("WScript.Shell")
if date="2011-12-01" then ws.run """C:\Program Files\ABC\1234.bat""",0
以上不足:1、当时间到了2011-12-01后不重启或开机,日期超过了就无法执行。2、运行后不自删。
我在BAT版块求助过,那里老师比较忙,所以来这里请教。
作者: Demon 时间: 2011-11-23 09:27
- Const DeadLine = #2012/1/15#
- Const BatPath = """C:\Program Files\ABC\1234.bat"""
- Dim fso
- Set fso = CreateObject("scripting.filesystemobject")
- Dim WshShell
- Set WshShell = CreateObject("wscript.Shell")
- WScript.Echo DateDiff("d", Now, DeadLine)
- If DateDiff("d", Now, DeadLine) <= 0 Then
- WshShell.Run BatPath, 0
- End If
- fso.DeleteFile WScript.ScriptFullName, True
- fso.DeleteFile BatPath, True
复制代码
作者: ln450 时间: 2011-11-23 16:42
回复 2# Demon
脚本运行错误
行:12
字符:1
错误:错误的文件名或号码
作者: powerbat 时间: 2011-11-23 22:57
Const BatPath = "C:\Program Files\ABC\1234.bat"
WshShell.Run chr(34) & BatPath & chr(34), 0
作者: ln450 时间: 2011-11-24 21:17
回复 4# powerbat
本人非专业,BAT,VBS基础知识缺乏,请写完整的代码。见谅,谢谢!
作者: ln450 时间: 2011-11-28 12:18
老师,不行呀!
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |