VBScriptでフォルダ内のファイルを再帰的に検索するサンプルです。

Const ForReading = 1 '読み込み
Const ForWriting = 2 '書きこみ（上書きモード）
Const ForAppending = 8 '書きこみ（追記モード）

Debug "プログラム　スタート"

Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder("D:\vbs\test")

Set FSO = Nothing


Sub ShowSubFolders(Folder)
    For Each File in Folder.Files 'Foler内のファイルを列挙する
        Fname = File.name
        'If LCase(FSO.GetExtensionName(Fname))="txt" Then '拡張子txtを判定
            Debug Folder & "\" & Fname
        'End If
    Next

    For Each Subfolder in Folder.SubFolders 'Foler内のフォルダを列挙する
        ShowSubFolders Subfolder '再帰呼び出し
	Next
End Sub

Sub Debug(logString)
    Dim objFileSys
    Dim objOutFile
    Dim objNetWork
    Dim strAccountInfo

    'ファイルシステムオブジェクトの作成
    Set objFileSys = CreateObject("Scripting.FileSystemObject")

    'WScript.Echo objFileSys.FileExists("D:\vbs\test.log")
    If objFileSys.FileExists("D:\vbs\test.log") = 0 Then
        Debug "test.log新規作成"
        objFileSys.CreateTextFile("D:\vbs\test.log")
    End IF


    'テキストファイルを書き込み（ただし追記モード）でオープン
    Set objOutFile = objFileSys.OpenTextFile("D:\vbs\test.log",ForAppending)

    'テキストファイルへの書き込み（1行書き込み）
    objOutFile.WriteLine "Date[" & date & "] Time[" & time & "] " & logString
    'テキストファイルのクローズ
    objOutFile.Close

    'オブジェクト破棄
    Set objFileSys = Nothing
    Set objOutFile = Nothing
    Set objNetWork = Nothing
End Sub

Pocket