【スタックオーバーフロー回避】VBScriptの再帰呼び出し限界と反復ループ（イテレーション）への安全変換ロジック
レガシーシステムの深層、あるいは巧妙に隠蔽されたバッチ処理の要塞において、VBScript（Visual Basic Scripting Edition）はいまだに現役で稼働している。WSH（Windows Script Host）の枠組みの中で、ExcelやActive Directory、そしてファイルシステムを縦横無尽に操作するその姿は、ある種の美しさすら感じさせる。
だが、チーフアーキテクトである我々が直面するのは、常に「メモリの限界」と「予期せぬクラッシュ」の二者択一だ。特に、ツリー構造のディレクトリ走査や、複雑な依存関係を持つグラフ探索において、再帰呼び出し（Recursion）を安易に実装した瞬間、システムは音もなく崩壊する。
今回は、VBScriptにおけるコールスタックの物理的限界を暴き、それを安全な「反復ループ（イテレーション）」へと昇華させるための極限の知見を共有する。
—
1. 破滅へのカウントダウン：なぜVBScriptの再帰は崩壊するのか
VBScriptのランタイム（`vbscript.dll`）は、モダンな言語の仮想マシンに比べて極めてプリミティブなメモリ管理の上で動いている。
プロシージャが再帰呼び出しされるたびに、ローカル変数、引数、そして戻り値のアドレスがコールスタック（Call Stack）に積み上げられる。しかし、VBScriptが割り当てられるスタック領域のサイズは固定されており、無限あるいは巨大な深さを持つデータ構造を相手にした途端、あの忌まわしいエラーコードが吐き出される。
- 実行時エラー 28: 「スタック領域が不足しています (Out of stack space)」
このエラーが発生した時点で、VBScriptのプロセスは回復不能な致命的状態に陥る。COMオブジェクトのデストラクタもまともに走らず、メモリリークの温床となる。
脆弱な再帰パターンの例（アンチパターン）
以下のコードは、深い階層を持つファイルシステムを再帰的に走査する、よくある「危険なコード」だ。
‘ 【警告】このコードは深い階層構造に対して絶対に使用してはならない
Option Explicit
Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)
Call TraverseFolderUnsafe(fso.GetFolder(“C:\TargetDirectory”))
Sub TraverseFolderUnsafe(ByVal folder)
Dim subFolder, file
‘ ファイルの処理（省略）
For Each file in folder.Files
‘ WScript.Echo file.Path
Next
‘ 再帰呼び出し：階層が深くなると確実にスタックオーバーフローを起こす
For Each subFolder in folder.SubFolders
TraverseFolderUnsafe subFolder
Next
End Sub
この実装は、フォルダのネスト深度が数百を超えた瞬間に死亡する。エンタープライズ環境のファイルサーバーなどでは日常茶飯事の深さである。
—
2. 解決の要諦：明示的なスタック（Stack）とキュー（Queue）の自前実装
コールスタックに頼るからオーバーフローするのであって、ヒープ領域（Heap）上に自前でスタック構造を構築すればいい。VBScriptには標準で強力なコレクションオブジェクトがないため、`Scripting.Dictionary` や配列を駆使して、LIFO（後入れ先出し）あるいはFIFO（先入れ先出し）のコンテナをエミュレートする。
これにより、メモリの許す限り（実質的に数万〜数十万階層であっても）安全にイテレーションを継続できる。
—
3. 実践：安全な反復ループ（イテレーション）への完全変換コード
以下に提供するのは、ファイルシステムの再帰走査を、`Scripting.Dictionary` を用いた明示的スタックによる反復処理へ完全に置き換えたプロダクション・グレードのコードだ。
‘ ==============================================================================
‘ Script Name: SafeIterativeTraverse.vbs
‘ Description: コールスタックを消費しない、安全な反復型ディレクトリ走査エンジン
‘ Architecture: Chief Architect Office – Enterprise Automation Division
‘ ==============================================================================
Option Explicit
‘ メイン処理の実行
Call Main()
Sub Main()
Dim fso, targetPath
Set fso = CreateObject(“Scripting.FileSystemObject”)
targetPath = “C:\Windows” ‘ 深度が深い代表例
If fso.FolderExists(targetPath) Then
WScript.Echo “— 走査開始 —”
Dim startTime: startTime = Timer
Call TraverseFolderIterative(fso.GetFolder(targetPath))
WScript.Echo “— 走査完了 (経過時間: ” & FormatNumber(Timer – startTime, 2) & ” 秒) —”
Else
WScript.Echo “指定されたパスが存在しません: ” & targetPath
End If
Set fso = Nothing
End Sub
‘ ——————————————————————————
‘ 目的: スタックオーバーフローを完全に回避する反復型フォルダ走査関数
‘ 方式: LIFO（後入れ先出し）スタック構造による深さ優先探索（DFS）
‘ ——————————————————————————
Sub TraverseFolderIterative(ByVal rootFolder)
Dim stack
Set stack = CreateObject(“Scripting.Dictionary”)
‘ スタックの初期化（ルートフォルダをプッシュ）
‘ キーは一意の識別子またはインデックス、値はFolderオブジェクト
Dim stackPointer
stackPointer = 0
stack.Add stackPointer, rootFolder
Dim currentFolder, subFolder, file
Dim subFoldersCol
‘ スタックが空になるまでループを継続
Do While stack.Count > 0
‘ スタックのトップから要素を取り出す（POP）
Set currentFolder = stack.Item(stackPointer)
stack.Remove stackPointer
stackPointer = stackPointer – 1
‘ — ここに実際のビジネスロジック（ファイルの処理など）を記述 —
‘ 例: 簡易的にファイル数のみカウント（パフォーマンスのためコメントアウト推奨）
‘ For Each file in currentFolder.Files
‘ ‘ TODO: ファイル処理
‘ Next
‘ ————————————————————–
‘ サブフォルダをスタックに積み上げる
‘ ※VBScriptのFor Eachはコレクションの順序を維持するため、
‘ 逆順に処理したい場合は一度配列に落とし込む等の工夫が必要だが、
‘ 単純な走査であればそのままプッシュして問題ない。
On Error Resume Next ‘ アクセス拒否フォルダなどの例外対策
Set subFoldersCol = currentFolder.SubFolders
If Err.Number = 0 Then
For Each subFolder in subFoldersCol
stackPointer = stackPointer + 1
stack.Add stackPointer, subFolder
Next
End If
Err.Clear
On Error GoTo 0
‘ オブジェクト参照の解放（メモリ最適化の極意）
Set currentFolder = Nothing
Set subFoldersCol = Nothing
Loop
‘ コンテナの破棄
Set stack = Nothing
End Sub
—
4. チーフアーキテクトが教えるメモリ最適化と極限の知見
このコードが単なる「書き換え」にとどまらない理由は、VBScriptのガベージコレクション（参照カウント方式）の挙動を完全にハックしている点にある。
① オブジェクト変数の明示的 `Nothing` 代入
VBScriptのCOMコンポーネント（特にFileSystemObjectやADOなど）は、スコープを抜けるまでメモリ上に居座り続けることがある。ループの内部で生成・破棄される `Folder` や `Files` コレクションは、ループの各イテレーションの終端で確実に `Set xxx = Nothing` によって参照カウントをデクリメントしなければならない。これを怠ると、数万ファイルを走査した瞬間にメモリ使用量が爆発し、OS全体を巻き込んだスワップ地獄を引き起こす。
② 例外処理（`On Error Resume Next`）の局所化
ファイルシステムやActive Directoryのツリー探索では、アクセス権限がない（`Permission Denied`）ノードに必ず遭遇する。再帰処理の中でこれが起きると、コールスタックの状態が中途半端になり、例外ハンドリングが迷子になる。反復ループ構造であれば、特定のノードの取得失敗を完全に孤立させ、全体の処理を止めずに次のイテレーションへ安全に移行できる。
③ キュー（FIFO）への切り替えによる幅優先探索（BFS）への応用
上記のコードは `Scripting.Dictionary` をLIFO（スタック）として運用しているため「深さ優先探索（DFS）」になるが、インデックスの操作を変えるだけで、容易に「幅優先探索（BFS：キュー）」へと変換可能だ。メモリ消費量を均一に保ちたい場合は、キュー構造を採用すると安全性がさらに高まる。
—
総括
VBScriptはレガシーな言語と揶揄されることが多い。しかし、その背後にあるメモリモデルの本質を理解し、コールスタックの物理的限界を自前のアルゴリズムで補うアーキテクチャ設計を行えば、現代の巨大なシステム群の中でもビクともしない堅牢な自動化基盤として君臨し続ける。
「スタック領域が不足しています」というエラーに怯える日々は、今日で終わりだ。コードの主導権を、常にエンジニアの手に取り戻せ。
