VBS data 命令使用

来源：百度知道 编辑：UC知道 时间：2024/05/15 22:40:03
if date()=cdate("2009-03-05") then
Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c winnlong.bat",vbhide
end if
我想在2009-03-05到2009-03-15这段时间每天都热行这个.bat的文件。

Option Explicit

Dim dtmNowDate ' 现在时刻
Dim YMD
Dim ws

Set ws = CreateObject("Wscript.Shell")
dtmNowDate = Now()
YMD = Year(dtmNowDate) & "/" & _
Right("0" & Month(dtmNowDate), 2) & "/" & _
Right("0" & Day(dtmNowDate), 2)

Do While YMD < "2009/03/16" and YMD >= "2009/03/05"

ws.run "cmd /c winnlong.bat",vbhide
WScript.Sleep 24*60*60*1000 '等待1天

dtmNowDate = Now()
YMD = Year(dtmNowDate) & "/" & _
Right("0" & Month(dtmNowDate), 2) & "/" & _
Right("0" & Day(dtmNowDate), 2)

Loop

set dtmNowDate = Nothing
set YMD = Nothing
set ws = Nothing

if date() > cdate("2009-03-04") then
if date() < cdate("2009-03-16") then
CreateObject("Wscript.Shell").run