こんにちは！VBScriptの世界へようこそ。
普段何気なく書いているスクリプトも、少し深い階層を扱うようになると、突然「スタック領域が不足しています（Out of stack space）」という冷酷なエラーに直面することがありますよね。
「えっ、私の書き方が悪いの？」と不安になるかもしれませんが、安心してください。これはVBScriptの実行エンジン（WSH）が持つ物理的な限界、そして「再帰呼び出し」という仕組みの裏側を知ることで、完璧に克服できます。
今回は、このエラーの正体を解き明かしながら、安全で強靭な「反復ループ（イテレーション）」への書き換え技術を、優しく、そして徹底的に解説していきます。ここをクリアすれば、あなたのVBScriptスキルは間違いなくプロの領域に到達しますよ！
—
1. そもそもなぜ？「スタック領域が不足しています」の正体
VBScriptで深いフォルダ階層を走査したり、複雑なツリー構造を解析したりするときによく使われるのが「再帰呼び出し（自分自身を呼び出す関数）」です。
‘ 【危険な再帰の例】フォルダの中を自分で自分を呼んで探検する
Sub ExploreFolder(folderPath)
‘ 処理…
For Each subFolder in subFolders
ExploreFolder subFolder.Path ‘ ← ここで自分を呼ぶ！
Next
End Sub
この「自分を呼ぶ」という行為、実は裏側でコンピュータの「コールスタック（呼び出し履歴のメモ帳）」を大量に消費しています。
関数が呼び出されるたびに、Windowsは「どこまで実行したか」の記憶をスタックというメモリ領域に積み上げていきます。しかし、VBScriptのスタック領域は現代のPCから見れば非常に小さく、何千回もネスト（入れ子）が深くなると、メモ帳がパンクしてしまいます。これがエラーの正体です。
—
2. 解決の鍵：スタックを自分で管理する「反復ループ」への変換
この問題を解決する王道のアプローチが、「再帰をやめて、自分でスタック（またはキュー）を管理する反復ループ（イテレーション）」への書き換えです。
Windowsのメモリ（コールスタック）に頼るのではなく、VBScriptの `Scripting.Dictionary` や配列を使って、処理すべき「ToDoリスト」を自分で管理してしまおうという発想です。これにより、メモリが許す限り、何万階層の深さであってもエラー知らずで安全に処理を継続できます。
—
3. 実践：安全な「スタック構造」への書き換えコード
それでは、実際の現場でそのまま使える実用的なコードを見ていきましょう。
今回は、深すぎるフォルダ階層を走査するシチュエーションを想定し、「再帰関数」ではなく「明示的なスタック（Array/Dictionary）」を使った安全なループ処理のコードを解説付きで提示します。
‘ =================================================================00
‘ 著作権・免責事項: 業務自動化の現場でそのまま使える安全なVBScriptテンプレート
‘ 用途: 階層の深いフォルダ構造を、スタックオーバーフローを起こさずに走査する
‘ =================================================================設定
Option Explicit
Main
Sub Main()
Dim targetRoot
targetRoot = “C:\TestRoot” ‘ 検査したいルートフォルダパスを指定してください
WScript.Echo “— 安全なイテレーション走査を開始します —”
Call SafeIterativeFolderSearch(targetRoot)
WScript.Echo “— すべての処理が正常に完了しました —”
End Sub
Sub SafeIterativeFolderSearch(ByVal rootPath)
Dim fso, stack, currentPath, subFolders, subFolder
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ ルートが存在しない場合は即座に抜け出す
If Not fso.FolderExists(rootPath) then
WScript.Echo “エラー: 指定されたフォルダが存在しません -> ” & rootPath
Exit Sub
End If
‘ VBScriptの「配列」を擬似的なスタックとして使用します
‘ 再帰の代わりに、このリストに「次に調べるべきフォルダ」を積み上げていきます
Dim stackList()
Dim stackCount
stackCount = 0
‘ 初期データをスタックに積む（プッシュ）
ReDim stackList(0)
stackList(0) = rootPath
‘ スタックが空になるまでループを回す（これが反復イテレーションの核心です）
Do While stackCount >= 0
‘ スタックの末尾からパスを取り出す（ポップ）
currentPath = stackList(stackCount)
‘ 配列のサイズを縮小
If stackCount > 0 Then
ReDim Preserve stackList(stackCount – 1)
End If
stackCount = stackCount – 1
‘ エラーハンドリング（アクセス拒否などの例外対策）
On Error Resume Next
Dim oFolder
Set oFolder = fso.GetFolder(currentPath)
If Err.Number = 0 Then
‘ ── 【ここに実際の業務処理を記述します】 ──
WScript.Echo “走査中: ” & oFolder.Path
‘ ——————————————
‘ サブフォルダをスタックに追加する
Dim oSubFolders, oSubFolder
Set oSubFolders = oFolder.SubFolders
For Each oSubFolder in oSubFolders
‘ スタックのサイズを拡張して新しいパスを積む
stackCount = stackCount + 1
ReDim Preserve stackList(stackCount)
stackList(stackCount) = oSubFolder.Path
Next
Else
‘ アクセス権がないフォルダなどはスキップして処理を続行
‘ WScript.Echo “スキップ (アクセス権なし等): ” & currentPath
Err.Clear
End If
On Error GoTo 0
Loop
Set fso = Nothing
End Sub
コードのここがポイント！
1. `ReDim Preserve` による動的スタック
VBScriptには標準の便利なスタックコレクションがないため、`ReDim Preserve`を使って配列のサイズをその都度伸縮させ、スタック（LIFO: Last In First Out）を実現しています。
2. `On Error Resume Next` による堅牢性
業務自動化において、アクセス権限のないシステムフォルダ等にぶつかってスクリプトが停止するのは最悪です。安全なループ構造のなかでエラーをハンドリングすることで、止まらない仕組みを作っています。
3. コールスタックを消費しない
どれだけフォルダが深くても、メモリ（配列）が許す限り無限にループし続けるため、「スタック領域が不足しています」というエラーとは永遠にお別れできます。
—
4. まとめ：ここをクリアすればVBScriptの基本はバッチリ！
お疲れ様でした！今回は、VBScriptの隠れた罠である「スタックオーバーフロー」の原因と、それを華麗に回避する「反復ループへの書き換え技術」について解説しました。
- 再帰呼び出しは便利ですが、深い階層ではコールスタックを爆発させます。
- 反復イテレーション（自分で配列やリストでToDoを管理する手法）を使えば、巨大で複雑なツリー構造も安全に踏破できます。
このメモリ管理の意識を持てるようになったあなたは、もはや単なるスクリプトの初学者ではありません。実務で信頼される堅牢な自動化プログラムを書ける優秀なエンジニアです。
ぜひ、日々の業務自動化ツールにこの知見を取り入れてみてくださいね。応援しています！
