VBS: Поиск строки в подкаталогах.

Option Explicit
Public oFSO     : Set oFSO = CreateObject("Scripting.FileSystemObject")
Public iTotal : iTotal=0

if WScript.Arguments.Count<2 then
  WScript.Echo "Вызов: " & WScript.ScriptFullName & " HomeDir String"
  WScript.Echo "  где: "
  WScript.Echo "       HomeDir - начальный каталог"
  WScript.Echo "       String  - строка для поиска"

  Wscript.Quit
end if 


ProcessFolder(oFSO.GetFolder(WScript.Arguments(0)))
WScript.Echo " Итого: " & iTotal

Sub ProcessFolder(Folder)
   Dim iFCnt   
    ' рекурсивно просматриваем все подпапки

    Dim SubFolder
    For Each SubFolder In Folder.SubFolders
        ProcessFolder SubFolder
    Next

    ' обрабатываем каждый файл 
    Dim File
    For Each File  In Folder.Files
        iFCnt = FindWordCnt(File.Path,WScript.Arguments(1)) 
        if iFCnt>0 then 
             iTotal = iTotal + iFcnt
             WScript.Echo  File.Path & ":" &chr(9)& iFCnt
        end if
    Next

End Sub

Function FindWordCnt(sFileIn,strWord)
     Dim oFileIn, iCnt, sBuf, oMatch

     Set oFileIn = oFSO.OpenTextFile(sFileIn, 1)
     iCnt = 0
     With New RegExp
        .Global = True
        .IgnoreCase = True ' False для поиска с учетом регистра
    
        Do
            sBuf = oFileIn.ReadLine ' считываем строку из файла 
            .Pattern = strWord 
              if .Test(sBuf) then  
                 iCnt=iCnt + .Execute(sBuf).Count ' суммируем кол-во найденных слов
              end if
        Loop Until oFileIn.AtEndOfStream
    End With
        
    oFileIn.Close
    FindWordCnt = iCnt
End Function 

Function FindWordCnt(sFileIn,strWord)
     Dim oFileIn, iCnt, sBuf, oMatch

     iCnt = 0
     With New RegExp
        .Global = True
        .IgnoreCase = True ' False для поиска с учетом регистра
    
        Set oFileIn = oFSO.OpenTextFile(sFileIn, 1)
        sBuf = oFileIn.ReadAll ' считываем файл целиком
        oFileIn.Close

        .Pattern = strWord 
        if .Test(sBuf) then iCnt = .Execute(sBuf).Count ' суммируем кол-во найденных слов
    End With
        
    FindWordCnt = iCnt
End Function