中国DOS联盟

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




以上是一个监视文件是否改动的vbs脚本

通过监视文件的最后修改时间和上次记录的时间作比较,如果时间不同则说明文件发生变化

但求各位帮忙添加一个功能

如何实现X小时后如果文件没有变化则运行某程序

DateDiff 函数的第一个参数有"s"和 "h"的选项，可以满足测试秒和小时。我根据你的代码稍作修改。假设如果X小时后文件没有变化则运行Xhours_autos.bat。
另：你的子函数没有返回值，可改为SUB。
*********************************************************
public lastchange,fso,f,WshShell,blnYes
Const Xhours=5
Const filespec="记录.txt"


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

'- - - - - - - - - - - - -- - - - - - - - -
Sub checkLastTime(NowTime)
'监视文件是否改动,如果X小时后文件没有变化则运行Xhours_autos.bat

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

End Sub

****************************************************
我自己没有经测试。