求助：VBS判断系统日期大于指定日期

xa139

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

1. On Error Resume Next
   
2. Set fos = CreateObject("Scripting.FileSystemObject")
   
3. if fos.fileexists("1.txt") then
   
4. Set solFile = fos.openTextFile("1.txt")
   
5. do while solFile.AtEndOfStream <> True
   
6. Dim sProgramme, sRunTime, aTime, iHour, iMinute, oShell
   
7. sProgramme = "e:\ip.bat" '
   
8. sRundate = solfile.readline
   
9. aTime = Split(sRunTime, ":")
   
10. iHour = CInt(aTime(0))
    
11. iMinute = CInt(aTime(1))
    
12. Do While True
    
13. If (Hour(Now) = iHour) And (Minute(Now) = iMinute) Then
    
14. Set oShell = CreateObject("WScript.Shell")
    
15. oShell.Run sProgramme, 1, False
    
16. Set oShell = Nothing
    
17. Exit Do
    
18. End If
    
19. WSH.Sleep 1000
    
20. Loop
    
21. loop
    
22. end if

复制代码

rat

你是不是搞错了，这脚本貌似不存在你所说的问题。

xa139

可是我测试了，就是不行