【極限の知見】VBScriptにおけるスタックオーバーフローの完全回避：非再帰型フォルダ走査エンジンの実装
レガシーなWindows環境の自動化において、VBScript（Visual Basic Scripting Edition）は依然として強力な武器である。しかし、多くのエンジニアが陥る致命的な罠がある。それは、「再帰呼び出しによるコールスタックの枯渇」だ。
エンタープライズ環境のファイルサーバ、あるいは複雑に構築されたプロジェクトディレクトリを走査する際、ディレクトリの階層が数百、数千と深くなった瞬間、再帰アルゴリズムは無慈悲に「Stack Overflow」を引き起こし、プロセスを強制終了させる。
本稿では、コールスタックの限界を物理的に回避し、メモリ効率と堅牢性を極限まで高めた「非再帰型（キュー構造）フォルダ走査エンジン」の構築手法について、その設計思想から実装の詳細までを詳説する。
1. 再帰アルゴリズムの限界と「スタック」の正体
一般的なプログラミング教育では、フォルダ走査の例題として再帰関数（`Sub Scan(folder)` 内で `Scan(subfolder)` を呼ぶ手法）が用いられる。これは実装が簡潔であり、論理構造が直感的だからだ。
しかし、プロフェッショナルな視点では、これは「リスクの高い実装」である。
コールスタックの制約
関数を呼び出すたびに、コンピュータのメモリ上には「戻り先アドレス」「ローカル変数」「引数」などの情報を保持するための「スタックフレーム」が積まれる。VBScriptが動作するエンジン（WSH: Windows Script Host）のコールスタックには、物理的・論理的な上限が存在する。
深層ディレクトリ構造において、再帰が深まりすぎると、このスタック領域を使い果たし、スクリプトは制御不能なエラーを吐いて死ぬ。我々が目指すべきは、コールスタック（スタック領域）を使用せず、ヒープ領域（動的メモリ領域）を管理することで、論理的な階層の深さを無制限に扱う設計である。
2. 非再帰型エンジンの設計思想：BFS（幅優先探索）の採用
スタックオーバーフローを回避するための解は、「探索すべき対象を、メモリ上のキュー（Queue）に格納し、ループ構造で処理する」ことにある。
ここで、二つの探索戦略がある。
1. DFS（深さ優先探索）: スタック構造を用い、一つの枝を突き進む。
2. BFS（幅優先探索）: キュー構造を用い、現在の階層をすべて処理してから次の階層へ進む。
大規模なファイルシステム走査においては、メモリ消費の予測可能性と、エラー発生時の復旧の容易さから、キューを用いたBFS（Breadth-First Search）を推奨する。VBScriptにおいては、`System.Collections.ArrayList` を利用することで、動的なキュー操作を高速に行うことが可能だ。
3. 実装：プロフェッショナル・スキャンエンジン
以下に、堅牢性とパフォーマンスを両立させた非再帰型走査エンジンのコードを示す。単なるコードの提示ではない。オブジェクトのライフサイクル管理と、アクセス権限エラーへの耐性に重点を置いている。
'**
' Engine: Non-Recursive Deep Folder Scanner (BFS Implementation)
' Author: Chief Architect
' Description: Uses a Queue (ArrayList) to avoid Stack Overflow in deep structures.
'**
Option Explicit
Dim fso, targetPath, queue, item
Set fso = CreateObject("Scripting.FileSystemObject")
' 走査対象のルートパスを指定
targetPath = "C:\Your\Deep\Target\Path"
' 探索対象を格納するキュー（ArrayListは動的配列として非常に高速）
Set queue = CreateObject("System.Collections.ArrayList")
' 初期値としてルートフォルダを投入
If fso.FolderExists(targetPath) Then
queue.Add fso.GetFolder(targetPath)
Else
WScript.Echo "Error: Target path does not exist."
WScript.Quit
End If
' --- メイン・エンジン・ループ ---
' キューが空になるまで、スタックを消費せずにループを回す
Do While queue.Count > 0
' キューの先頭から要素を取り出す (FIFO: First-In, First-Out)
Set item = queue.Item(0)
queue.RemoveAt 0
On Error Resume Next ' アクセス権限エラー等のランタイムエラー対策
Dim currentFolder, subFolder
Set currentFolder = item
If Err.Number = 0 Then
' --- [処理ロジックの起点] ---
' ここにファイル操作やログ出力のロジックを実装する
' 例: WScript.Echo "Scanning: " & currentFolder.Path
' フォルダ内のファイルを走査
Dim file
For Each file In currentFolder.Files
' ファイルに対する処理（例: ログ出力）
' WScript.Echo " File: " & file.Name
Next
' --- [サブフォルダのキューへの投入] ---
' 再帰呼び出しの代わりに、サブフォルダをキューに追加していく
For Each subFolder In currentFolder.SubFolders
queue.Add subFolder
Next
' ----------------------------------
Else
' アクセス拒否(Permission Denied)などのエラーハンドリング
' WScript.Echo "Access Denied: " & currentFolder.Path
Err.Clear
End If
' --- [オブジェクトの明示的解放] ---
' メモリリークを防ぐため、ループの各ステップで参照を切り離す
' これが大規模走査におけるパフォーマンス維持の肝である
Set item = Nothing
Set currentFolder = Nothing
On Error GoTo 0 ' エラーハンドリングをリセット
Loop
' クリーンアップ
Set queue = Nothing
Set fso = Nothing
WScript.Echo "Scan Completed Successfully."4. アーキテクトの視点：極限の最適化と保守性
このエンジンを実戦投入するにあたり、シニアエンジニアが留意すべき技術的要諦を記す。
① オブジェクトのライフサイクル管理
VBScriptにおける `Set obj = Nothing` は、単なる作法ではない。COMオブジェクトの参照カウントを適切に減らすための生存戦略である。特に `FileSystemObject` を介して取得した `Folder` や `File` オブジェクトは、ループ内で適切に解放（または参照解除）しなければ、メモリ使用量が指数関数的に増大し、システム全体のパフォーマンスを低下させる。
② `System.Collections.ArrayList` の選択
VBScript標準の `Collection` オブジェクトは、要素の削除（`Remove`）が重い。一方、`.NET` のコンポーネントである `ArrayList` を COM 経由で呼び出すことで、動的な配列操作のオーバーヘッドを最小限に抑えることができる。これは、数万件規模のディレクトリを扱う際の決定的な差となる。
③ エラーハンドリングの哲学
`On Error Resume Next` は、使い方を誤れば「沈黙するバグ」を生む。本実装では、「アクセス権限のないフォルダ」をスキップすることに特化して使用している。エラーが発生した直後に `Err.Number` を確認し、適切に `Err.Clear` を行う。この「エラーを制御下に置く」姿勢こそが、プロフェッショナルと初心者の境界線である。
④ Windows APIへの昇華（さらなる高みへ）
もし、FSOの速度にすら満足できない極限のパフォーマンスを求めるならば、`FindFirstFileEx` や `FindNextFile` といった Win32 API を直接叩く必要がある。しかし、それは VBScript の範疇を超え、C++ や Rust によるネイティブモジュールの開発領域となる。VBScriptという制約の中で、いかに「論理的な正しさ」を追求するか。それが我々に課せられたミッションである。
結論
再帰は美しい。しかし、実戦は美しくない。
真に堅牢なシステムを構築するには、言語の限界を理解し、データ構造（キュー）によってその限界を突破する設計力が求められる。この非再帰型エンジンは、レガシー環境におけるファイル操作の「決定版」となるはずだ。
