Board logo

标题: [问题求助] 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

  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
复制代码

作者: 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