''On Error Resume Next
Dim strDir, arrKey, strDt
strDir = "D:\Test"
arrKey = Array(":L  ABC", ":OP  1.5", "XXX")
strDt = "2015/3/1 8:05:00"

Do while DateDiff("s", strDt, Now()) > 0
    call Main()
    strDt = DateAdd("n", "10", strDt)  ''加 10 分钟
    WScript.Sleep 5000
Loop

Sub Main()
    Dim fso, f, txt, objFile, s
    s = ""
    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each f in fso.GetFolder(strDir).Files
        If LCase(Right(f, 4)) = ".txt" Then
            If DateDiff("s", strDt, f.DateLastModified) > 0 Then
                Set objFile = fso.OpentextFile(f, 1)
                txt = objFile.ReadAll
                If TestKeyWord(txt) Then s = s & f.Name & vbCrLf
                objFile.Close
            End If
        End If
    Next
    fso.OpenTextFile("a.txt", 2, true).Write s
    CreateObject("WScript.Shell").Run "cmd /c ""ch.bat""",,true  ''调用bat
    Set fso = Nothing
End Sub

Function TestKeyWord(ByVal txt)
    Dim i
    TestKeyWord = True
    txt = vbCrLf & txt & vbCrLf
    For i = 0 to UBound(arrKey)
        If InStr(txt, vbCrLf & arrKey(i) & vbCrLf) = 0 Then
            TestKeyWord = False : Exit For
        End If
    Next
End Function
复制代码