【VBScriptを掌握する極限の知見】深層フォルダの迷宮を制す：再帰的FSOファイル探索の完全設計
現場のエンジニアなら一度は直面する課題がある。
「特定の共有ドライブの奥深くにある、数万件のファイル群から、特定パターンのファイルを漏れなく回収せよ」という無慈悲な要件だ。
ここで安易な非同期プロセスや場当たり的なループを書く者は、VBScriptのメモリ管理とファイルシステムオブジェクト（FSO）の挙動に足をすくわれ、スタックオーバーフローや「権限エラー（Permission Denied）」で深夜のデスクトップの前で絶望することになる。
今回は、VBScriptにおける「再帰呼び出し（Recursive Call）」を用いたサブフォルダ配下の全ファイル網羅的検索について、プロダクション環境（本番）で耐えうる堅牢な設計と思考法を伝授する。
—
1. なぜ「再帰アルゴリズム」なのか？
フォルダ階層が何階層あるか事前に出力が分からない場合、通常の`For…Next`ループでは太刀打ちできない。動的に深さが変わるツリー構造を攻略する唯一無二の解法が、「関数が自分自身を呼び出す再帰処理」である。
しかし、VBScriptにおける再帰には、他のモダン言語（C#やPythonなど）とは異なるVBScript特有の暗黙の罠が存在する。それを理解せずしてコードを書くことは、時限爆弾を抱えるのと同義だ。
—
2. 現場で絶対に踏んではいけない「3つの地雷」
① エラーハンドリングの欠如による「即死」
ネットワークドライブや共有フォルダを巡回する際、アクセス権限のないフォルダ（`Access is denied`）に遭遇することは日常茶飯事だ。ここで `On Error Resume Next` を適当に配置し、エラーを握りつぶすと、バグの温床になる。
【知見】 制御されたスコープでのみエラーを無視し、かつ処理を継続する「局所的エラーハンドリング」が必須。
② メモリリークとCOMオブジェクトの解放怠慢
FSO（`Scripting.FileSystemObject`）やFolderコレクションをループ内で安易に生成・破棄すると、VBScriptの貧弱なガベージコレクタではメモリが解放しきれなくなる。特に数万ファイルを扱う深層検索では致命的だ。
【知見】 オブジェクト変数は適切に参照を切り、極力インスタンスの乱造を避ける。
③ 無限ループやスタックオーバーフロー
シンボリックリンクやジャンクション（特にWindowsの特殊フォルダ）を再帰処理すると、無限ループに陥る危険性がある。
—
3. 【プロダクションコード】堅牢な再帰検索スクリプト
以下のコードは、実務の現場でそのままコピー＆ペーストして利用できる、エラー耐性とパフォーマンスを極限まで高めた完全版だ。
‘ ==============================================================================
‘ Script Name: RecursiveFileSearch.vbs
‘ Description: 指定されたルートフォルダから再帰的にサブフォルダを走査し、
‘ 条件に合致するファイルを特定ログに出力する堅牢な検索エンジン
‘ ==============================================================================
Option Explicit
‘ — 定数定義 —
Const LOG_FILE_PATH = “C:\Temp\Search_Result.log”
Const TARGET_EXTENSION = “.xlsx” ‘ 検索対象の拡張子（小文字指定）
Dim fso, tsLog
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ ログファイルの準備（Unicode: False = ASCII/Shift-JIS, Overwrite: True）
Set tsLog = fso.CreateTextFile(LOG_FILE_PATH, True, False)
tsLog.WriteLine “=== ファイル検索開始: ” & Now & ” ===”
‘ 処理時間の計測用
Dim startTime
startTime = Timer
‘ — メイン処理の実行 —
Dim targetRoot
targetRoot = “C:\WorkFolder” ‘ 検索起点となるルートパス（環境に合わせて変更）
If fso.FolderExists(targetRoot) Then
‘ 再帰関数の呼び出し
Call SearchFilesRecursive(fso.GetFolder(targetRoot), tsLog)
Else
tsLog.WriteLine “[ERROR] 指定されたルートフォルダが存在しません: ” & targetRoot
End ‘ If
‘ 終了処理
tsLog.WriteLine “=== ファイル検索終了: ” & Now & ” (処理時間: ” & FormatNumber(Timer – startTime, 2) & “秒) ===”
tsLog.Close
Set tsLog = Nothing
Set fso = Nothing
WScript.Echo “検索が完了しました。ログを確認してください。” & vbCrLf & LOG_FILE_PATH
‘ ==============================================================================
‘ 関数名: SearchFilesRecursive
‘ 概要: フォルダオブジェクトを受け取り、ファイル検索とサブフォルダへの再帰を行う
‘ 引数: ByVal oFolder As Scripting.Folder
‘ ByRef oLog As Scripting.TextStream
‘ ==============================================================================
Sub SearchFilesRecursive(ByVal oFolder, ByRef oLog)
On Error Resume Next ‘ 権限エラー等の予期せぬ中断を防ぐため局所的に適用
Dim oFile, oSubFolder, subFoldersColl, filesColl
Set filesColl = oFolder.Files
Set subFoldersColl = oFolder.SubFolders
If Err.Number <> 0 Then
oLog.WriteLine “[WARNING] フォルダへのアクセス権限がありません: ” & oFolder.Path
Err.Clear
Exit Sub
End If
On Error GoTo 0 WScript.StdErr (または標準のエラー制御に戻す)
‘ 1. 現在の階層にあるファイルを走査・判定
For Each oFile In filesColl
‘ 条件判定：拡張子が一致するか（大文字小文字を区別しない LCase比較）
If LCase(fso.GetExtensionName(oFile.Name)) = LCase(Replace(TARGET_EXTENSION, “.”, “”)) Then
oLog.WriteLine oFile.Path & ” (Size: ” & oFile.Size \ 1024 & ” KB)”
End If
Next
‘ 2. サブフォルダを走査し、自分自身を呼び出す（再帰）
For Each oSubFolder In subFoldersColl
‘ 再帰呼び出し
SearchFilesRecursive oSubFolder, oLog
Next
‘ 3. 明示的なオブジェクト解放（メモリ肥大化の防止）
Set filesColl = Nothing
Set subFoldersColl = Nothing
End Sub
—
4. コードのアーキテクチャ解説：プロが仕込む「3つの工夫」
① `On Error Resume Next` の正しいサンドボックス化
エラー対策としてスクリプト全体の先頭にこれを書く素人がいるが、それは悪手である。予期せぬバグ（変数名のタイポなど）まで隠蔽されてしまうからだ。
上記のコードでは、権限エラーが発生しうるフォルダアクセス・列挙の瞬間だけ `On Error Resume Next` を有効にし、直後に `On Error GoTo 0` で通常の厳格なエラー監視に戻している。これがプロの作法だ。
② 厳密な型比較と `LCase` による堅牢性
ファイルシステムの世界では、大文字と小文字は区別されないことが多い（例: `.XLSX` と `.xlsx`）。比較を行う際は必ず `LCase()` で正規化し、予期せぬ取りこぼしを防いでいる。
③ 巨大なコレクションの参照破棄
`oFolder.Files` や `oFolder.SubFolders` は、COMオブジェクトのコレクションをメモリ上に展開する。ループの最後で `Set filesColl = Nothing` と明示的に参照を切ることで、VBScriptのメモリ使用量を常にクリーンに保ち、数万ファイル規模の走査でもメモリリークを防いでいる。
—
5. 発展：データベース（SQLite / Access）連携への布石
テキストファイルへの書き出し（`LogFile`）は手軽だが、検索結果をもとに後続の自動処理（ファイルの移動、リネーム、DB登録）を行う場合は、ここで取得したファイルパスのリストをADO（ActiveX Data Objects）経由でSQLiteやMicrosoft Access、あるいはSQL ServerなどのRDBへバルクインサートする設計へ拡張すると非常に優美である。
FSOで集めたパスを配列やDictionaryに蓄積し、トランザクションを切って一括投入する。このベースとして、今回の再帰検索エンジンは完璧な基盤となる。
総括
VBScriptはレガシーな言語と揶揄されることもあるが、OSの根幹にダイレクトにアクセスし、インフラ環境を選ばず即座に動かせる「最強の現場ツール」であることにかわりはない。
アルゴリズムの理を理解し、メモリと例外処理をコントロール下に入れれば、VBScriptはあなたの右腕としてノーミスで巨大な業務を完遂してくれる。
泥臭い手作業の自動化こそ、エレガントなコードで圧倒的に制圧せよ。
