VBSで、当日の日付から始まる複数のログファイル内の特定の文字列を監視する方法

Question

今、複数のログファイルから、特定の文言「エラー」を検知して、発見した場合はメールを送信するように、VBSでコーディングしています。
複数のログファイルはすべて「yyyymmdd_backup_log1.log」という名前のため、
(log1の部分は、同期対象ファイルをテキストファイルに記載していて、そこからバッチとforコマンドで動的に取得するようにしています。)
当日の日付「yyyymmdd～」から始まるファイルをループで取得し、
当日の日付から始まる複数のログファイル内の特定の文字列の行と次の行を変数errerMsgに格納しようとしています。
しかし、複数のログファイルを同時に監視することがうまくいきません。
(ログファイルがひとつの場合はうまくいきました。
下記のソースは、メール部分は省いています。
必要でしたら、追記変更します。)

どなたかお力を貸していたがけないでしょうか。
よろしくお願いいたします。

Set WSHFso = CreateObject("Scripting.FileSystemObject")
Dim strSearchWord
Dim errorMsg
Dim strFormattedDate
Dim logfile

'日付ごとでログローテーションしたログの監視を実施する
'yyyy/mm/dd hh:mm:ss 形式の文字列で現在日時を取得
strFormattedDate = Now()
 
'yyyy/mm/dd hh:mm:ss から yyyy/mm/dd 部分のみ抽出
strFormattedDate = Left(strFormattedDate, 10)
 
'yyyy/mm/dd から / を削除
strFormattedDate = Replace(strFormattedDate, "/", "")

'yyyymmddから始まる複数のログファイルをループで監視したい
`ここからがのループがうまくいかない
Dim FSO
Dim FLD
Dim FLC
Dim 対象FLd As String
対象FLd = "c:\work"
'FileSystemObjectの仕様を宣言
Set FSO = CreateObject("Scripting.FileSystemObject")
'対象のフォルダーをFLDという変数に入れる（オブジェクト変数）
Set FLD = FSO.getfolder(対象FLd)
'対象フォルダー（FLD)の中のファイル一覧（コレクション）をFLCに入れる
Set FLC = FLD.Files
'FLCのファイルを一個ずつ処理する
For Each logfile In FLC
'logfile名の先頭10文字が当日の日付だったら
If Left(logfile.Name, 10) = strFormattedDate Then
'logfile名の先頭10文字の該当ファイルがなくなるまで
'ここのループのかけ方はあっていないと思われるが、正しい書き方が不明
Do Until logfile.Name.AtEndOfFile

'Public Const FileName = logfile
Public Const sWord ="エラー"

Set tmpFile = WSHFso.OpenTextFile(logfile)
Do Until tmpFile.AtEndOfStream

'1行ずつ読み込み。ReadLineは次の行を読み込んでくれる。
tmpLine = tmpFile.ReadLine

'読み取った1行の中に探している文言があったらnflgをtrueにして、その下のif文でループ抜ける
nflg= fSearchWord (tmpLine)
If nflg Then

'エラーで検知した行と次の行を変数に格納する
errorMsg = errorMsg & tmpLine & vbCrLf & tmpFile.ReadLine & vbCrLf
End If
Loop
Loop


'以下は、実行結果が1件以上ある(空ではない)場合はメールを送信して終了、0件なら実施せず終了、を実現している。
'ここから先は問題ない。
If Not IsNull(errorMsg) Then
･･････

Comments

[otn]

> 'ここのループのかけ方はあっていないと思われるが、正しい書き方が不明
何についてのループのつもりですか？

[stdio]

まず一つ一つ考えて下さい。
複数のログファイルという事はフォルダの階層読み込みを使います。VBAなら各クラスでしっかりと制御できますので、まずはフォルダの階層読み込みを実施しましょう。

Answer 1

これ、そもそもエラーでませんか？
VBScriptでは変数の型の定義はできません。
また日本語変数名も使えません。
もしかしてVBScriptではなくVBA？

少なくとも上記の指摘をクリアすればファイル名の一覧は取得できていることは確認できています。
単体で動いているのなら上記を修正すれば動くのではないでしょうか。