[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

日期可以在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
复制代码

回复 2楼 的帖子

可是我测试了,就是不行

TOP

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

TOP

返回列表