日期可以在1.txt里读取，我的 1.txt 是 "20090909" ' （日期格式对吗？）
系统日期等于1.txt时可以打开 e:\ip.bat ，系统日期大于1.txt 时就不能打开e:\ip.bat 了。
求解：系统日期大于1.txt时还能打开e:\ip.bat ？
谢谢... ...

On Error Resume Next

Set fos = CreateObject("Scripting.FileSystemObject")

if fos.fileexists("1.txt") then

Set solFile = fos.openTextFile("1.txt")

do while solFile.AtEndOfStream <> True 

Dim sProgramme, sRunTime, aTime, iHour, iMinute, oShell

sProgramme = "e:\ip.bat" '

sRundate = solfile.readline

aTime = Split(sRunTime, ":") 

iHour = CInt(aTime(0)) 

iMinute = CInt(aTime(1))

Do While True 

If (Hour(Now) = iHour) And (Minute(Now) = iMinute) Then 

Set oShell = CreateObject("WScript.Shell") 

oShell.Run sProgramme, 1, False 

Set oShell = Nothing 

Exit Do 

End If 

WSH.Sleep 1000 

Loop

loop

end if