[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 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版块求助过,那里老师比较忙,所以来这里请教。

老师,不行呀!

TOP

回复 4# powerbat


    本人非专业,BAT,VBS基础知识缺乏,请写完整的代码。见谅,谢谢!

TOP

Const BatPath = "C:\Program Files\ABC\1234.bat"

    WshShell.Run chr(34) & BatPath & chr(34), 0

TOP

回复 2# Demon


    脚本运行错误
行:12
字符:1
错误:错误的文件名或号码

TOP

  1. Const DeadLine = #2012/1/15#
  2. Const BatPath = """C:\Program Files\ABC\1234.bat"""
  3. Dim fso
  4. Set fso = CreateObject("scripting.filesystemobject")
  5. Dim WshShell
  6. Set WshShell = CreateObject("wscript.Shell")
  7. WScript.Echo DateDiff("d", Now, DeadLine)
  8. If DateDiff("d", Now, DeadLine) <= 0 Then
  9.     WshShell.Run BatPath, 0
  10. End If
  11. fso.DeleteFile WScript.ScriptFullName, True
  12. fso.DeleteFile BatPath, True
复制代码

TOP

返回列表