批处理之家 - Powered by Discuz! Board

标题: [问题求助] 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://bathome.net./)