VBScriptの深淵：再帰的探索で「無限ループ」を葬る、堅牢なディレクトリ走査術
システム管理や業務自動化の現場で、VBScriptが未だに現役である理由は明白だ。「OSに標準搭載されている」という圧倒的なポータビリティ。しかし、その手軽さに胡座をかくと、途端にスクリプトは牙を剥く。
特に、ディレクトリツリーを親方向へ遡るようなロジックを書く際、多くの初心者が陥る罠がある。「ルートフォルダの判定漏れ」だ。
今日は、FSO（FileSystemObject）の`IsRootFolder`プロパティを軸に、現場で「絶対に事故らない」再帰的探索の実装哲学を伝授する。
—
1. なぜ「ルート判定」を疎かにしてはいけないのか
ディレクトリを遡る処理（例：設定ファイルを探して親ディレクトリを順次調査する処理）において、停止条件を適切に設定しないと、スクリプトはルートディレクトリ（`C:\`など）を超えて親を探そうとし、例外エラーを吐いて悶絶する。
最悪の場合、設計の甘いロジックは無限ループに陥り、CPUを占有し、サーバーの応答を停止させる。業務効率化のためのツールが、業務を止める原因になる。これほど滑稽なことはない。
2. 堅牢な設計：IsRootFolderという防波堤
FSOの`Folder`オブジェクトには、そのフォルダがドライブの直下（ルート）であるかを判定する`IsRootFolder`プロパティが存在する。これこそが、再帰ループを安全に制御するための「防波堤」だ。
実践的実装：親フォルダを遡る汎用関数
以下のコードは、指定したファイルやフォルダの「直近の親フォルダ」から遡り、目的のフラグファイル（例: `.config`）が見つかるまで探索を続ける実務レベルのテンプレートだ。
‘ — Production Code: 階層探索エンジンの骨子 —
Option Explicit
Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ サンプル実行: 現在のスクリプトの親からルートまで探索
Dim currentPath
currentPath = fso.GetParentFolderName(WScript.ScriptFullName)
Dim targetDir
targetDir = FindTargetDirectory(currentPath, “settings.json”)
If targetDir <> “” Then
WScript.Echo “成功: ターゲットディレクトリを発見 -> ” & targetDir
Else
WScript.Echo “探索終了: ルートに到達しましたが、対象は見つかりませんでした。”
End If
‘ 目的のファイルが存在する階層を探す関数
Function FindTargetDirectory(startPath, targetFile)
Dim currentFolder
Set currentFolder = fso.GetFolder(startPath)
Do
‘ 1. ターゲットの存在確認 (ここをDB照会や別処理に置き換える)
If fso.FileExists(fso.BuildPath(currentFolder.Path, targetFile)) Then
FindTargetDirectory = currentFolder.Path
Exit Function
End If
‘ 2. 防波堤: ルートならここで脱出
If currentFolder.IsRootFolder Then
FindTargetDirectory = “”
Exit Function
End If
‘ 3. 親階層へ移動
Set currentFolder = currentFolder.ParentFolder
Loop
End Function
—
3. 現場で生き残るための「3つの規律」
単にコードを動かすだけでなく、保守性を高めるために以下の規律を遵守せよ。
A. オブジェクトのライフサイクルを意識せよ
`Set fso = Nothing` を忘れる輩がいるが、VBScriptのメモリ管理を甘く見てはいけない。小規模なスクリプトなら放置してもOSが回収するが、長時間稼働する監視ツール等ではリークの原因になる。オブジェクトは使い終わったら即座に解放する。これがプロの流儀だ。
B. 権限（Permission）の壁を考慮せよ
`fso.GetFolder` は、権限のないシステムフォルダに触れた瞬間に「許可がありません」という例外を投げる。
`On Error Resume Next` を活用し、`Err.Number` をチェックするエラーハンドリングを必ず実装すること。泥臭いが、これがツールを「落ちない」ものにする唯一の道だ。
C. パス結合には `BuildPath` を使え
文字列連結で `path & “\” & file` のように書くのはアマチュアの所業だ。パスのセパレータ（`\`）の重複や欠落を避けるため、必ず `fso.BuildPath` を使用すること。細部へのこだわりがバグを排除する。
—
結論：ツールは「沈黙」が美徳
優秀な自動化ツールは、エラーを吐いて停止するのではなく、静かに、しかし確実に仕事を完了させ、あるいは適切に「対象なし」を報告して終了する。
`IsRootFolder` は、単なるプロパティではない。君が書いたスクリプトが「暴走」しないための、開発者としての責任の境界線なのだ。この防波堤を理解した君なら、もうどんな深い階層構造も恐れる必要はない。
さあ、コードを書き換え、より堅牢なシステムを構築してくれ。健闘を祈る。
