public lastchange,fso,f,WshShell
filespec="记录.txt"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
lastchange=f.DateLastModified
msgbox "文件最后修改时间:"&lastchange&vbcrlf&"现在开始监控文件....."
for i=1 to 10000000
call check()
next
msgbox "程序结束"
function check()
getnow=f.DateLastModified
if datediff("s",lastchange,getnow)<>0 then
WshShell.Run "autos.bat",0,true
wscript.sleep 1000
lastchange=f.DateLastModified
end if
wscript.sleep 1000
end function
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
lastchange=f.DateLastModified
msgbox "文件最后修改时间:"&lastchange&vbcrlf&"现在开始监控文件....."
blnYes=TRUE
Do While blnYes
getnow=f.DateLastModified
checkLastTime(getnow)
wscript.sleep 1000
Loop
msgbox "程序结束"
Set WshShell =Nothing
Set fso = Nothing
Set f = Nothing
If datediff("s",lastchange,NowTime)<>0 Then
WshShell.Run "autos.bat",0,true
wscript.sleep 1000
lastchange=f.DateLastModified
End If
Hours=datediff("h",lastchange,NowTime)
If Hours=Xhours Then
WshShell.Run "Xhours_autos.bat",0,true
wscript.sleep 1000
lastchange=f.DateLastModified
If MsgBox("你是否要继续监控文件?",,vbYesNo)=vbNo Then
blnYes=FALSE
End If
End If