【テクニカル・上級編】【上級プロフェッショナル向け】NTFSジャンクションやシンボリックリンクによるFSO再帰走査の無限ループを検出・破棄する階層レベル制限アルゴリズム – VBScript (Visual Basic Scripting Edition)解析バイブル

VBScript (Visual Basic Scripting Edition)

2026.11.09

循環参照の深淵を断つ：NTFSジャンクションとシンボリックリンクによるFSO再帰探索の無限ループ防御策

循環参照の深淵を断つ：NTFSジャンクションとシンボリックリンクによるFSO再帰探索の無限ループ防御策

レガシーシステムの保守、あるいは大規模なファイルサーバーのインベントリ収集。我々シニアエンジニアが直面する課題は、常に「表面的な実装」の先にある「エッジケースの地獄」だ。

VBScriptの`FileSystemObject` (FSO) は、極めて扱いやすい。`GetFolder` メソッド一つで、ディレクトリツリーの深淵へと足を踏み入れることができる。しかし、そこには罠が仕掛けられている。NTFSのジャンクション（Junction Points）やシンボリックリンク（Symbolic Links）だ。

もし、あるフォルダがその親フォルダを指し示すジャンクションであった場合、単純な再帰処理は無限ループに陥り、スタックオーバーフローを引き起こすか、あるいはシステムリソースを食いつぶしてプロセスをハングアップさせる。

本稿では、単なる「再帰関数の書き方」などという初歩的な話はしない。オブジェクトのライフサイクル、パスの正規化、そして`Scripting.Dictionary`を用いた$O(1)$の走査ガード機構を組み合わせた、プロフェッショナルな階層探索アルゴリズムを解説する。

1. なぜ「単純な再帰」では足りないのか

FSOの `Folder.SubFolders` コレクションは、リンク先が物理的に別の場所を指していても、あたかもその場所に実体があるかのように振る舞う。

循環参照のメカニズム

1. `C:\Data` を走査開始。
2. その中の `C:\Data\LinkToParent` というジャンクションを発見。
3. このジャンクションは `C:\Data` を指している。
4. 再帰関数が再び `C:\Data` を呼び出し、無限ループへ。

これに対抗するには、以下の二つの防壁が必要である。

深度制限 (Depth Limiting): 予期せぬ深層への進入を物理的に遮断する。
訪問済みパス管理 (Visited Path Tracking): すでに通過した「実体」を記憶し、二度目の遭遇を検知する。

2. 実装の核となるアーキテクチャ

プロフェッショナルな実装において、パスの比較は極めて繊細な作業だ。`C:\Temp` と `C:\temp\` は論理的に同一だが、文字列比較では不一致となる。また、大文字小文字の揺らぎも考慮しなければならない。

我々は、以下の戦略を採用する。

1. カノニカルパス（正規化パス）の生成: `FileSystemObject.GetFolder(path).Path` を利用し、OSレベルでの正規化された文字列を取得する。
2. Dictionaryオブジェクトによる高速検知: `Scripting.Dictionary` を使用し、訪問済みパスをハッシュテーブルとして管理する。これにより、探索の各ステップにおける重複チェックを $O(1)$ で完了させる。
3. 明示的なオブジェクト解放: 再帰が深くなるにつれ、未解放の `Folder` オブジェクトがメモリを圧迫する。`Set obj = Nothing` によるライフサイクル管理を徹底する。

3. 実践的実装例：堅牢な再帰走査エンジン

以下に、実戦投入可能なVBScriptのコードを示す。これは、単なるスクリプトではなく、一つの「エンジン」として設計されている。

'**
' Module: RobustFolderScanner
' Description: NTFS Junctions/Symlinksによる無限ループを防御する再帰走査エンジン
' Author: Legendary Chief Architect
'**
Option Explicit

Dim fso, visitedPaths, MAX_DEPTH
Set fso = CreateObject("Scripting.FileSystemObject")
Set visitedPaths = CreateObject("Scripting.Dictionary")

' 探索の最大深度（スタックオーバーフローおよび異常なディレクトリ構造への防壁）
Const MAX_DEPTH = 20

' テスト実行
Dim targetPath
targetPath = "C:\Your\Target\Path" ' ここを対象パスに変更

If fso.FolderExists(targetPath) Then
    WScript.Echo "Starting robust scan..."
    ScanFolder fso.GetFolder(targetPath), 0
    WScript.Echo "Scan completed successfully."
Else
    WScript.Echo "Error: Target path does not exist."
End If

'**
' Sub ScanFolder
' Argument: objFolder (FileSystemObject.Folder), currentDepth (Integer)
'**
Sub ScanFolder(objFolder, currentDepth)
    Dim subFolder, folderPath, canonicalPath
    
    ' 1. 深度制限による強制終了
    If currentDepth > MAX_DEPTH Then
        WScript.Echo "[WARNING] Max depth reached at: " & objFolder.Path
        Exit Sub
    End If

    ' 2. パスの正規化（カノニカルパスの取得）
    ' 大文字小文字を区別しないよう、LCaseで統一して管理する
    canonicalPath = LCase(objFolder.Path)

    ' 3. 循環参照の検知（DictionaryによるO(1)チェック）
    If visitedPaths.Exists(canonicalPath) Then
        WScript.Echo "[INFO] Circular reference detected and skipped: " & canonicalPath
        Exit Sub
    End If

    ' 訪問済みリストに登録
    visitedPaths.Add canonicalPath, True

    ' --- ここにファイル操作のロジックを記述 ---
    WScript.Echo String(currentDepth * 2, " ") & "|-- Folder: " & objFolder.Name
    ' ---------------------------------------

    ' 4. サブフォルダの再帰走査
    On Error Resume Next ' アクセス権限エラー対策
    For Each subFolder In objFolder.SubFolders
        If Err.Number = 0 Then
            ScanFolder subFolder, currentDepth + 1
        Else
            WScript.Echo "[ERROR] Access Denied: " & subFolder.Path
            Err.Clear
        End If
    Next
    On Error GoTo 0

    ' 5. 【極めて重要】オブジェクトの明示的な解放
    ' 再帰が深い場合、これを行わないとメモリリークとハンドル枯渇を招く
    Set subFolder = Nothing
    ' objFolder は呼び出し元で制御されるため、ここではNothingにしない（呼び出し元で解放）
End Sub

' プログラム終了時にリソースを完全に破棄
Set visitedPaths = Nothing
Set fso = Nothing

4. アーキテクトの視点：パフォーマンスと安定性の考察

この実装を単なるコードとしてではなく、システム設計として理解するために、以下の3点に注目せよ。

I. メモリ管理の重み

VBScriptはガベージコレクションを持つが、その挙動は決定論的（Deterministic）ではない。特に `For Each subFolder In objFolder.SubFolders` のような反復処理において、ループ内で生成されるオブジェクトを適切に管理しなければ、大規模なファイルシステム走査時にメモリ使用量が指数関数的に増大する。`Set subFolder = Nothing` は、単なる作法ではなく、システムの生存戦略である。

II. `Scripting.Dictionary` の選択

なぜ `Array` ではないのか？探索が進むにつれ、訪問済みパスのリストは膨大になる。`Array` での重複チェックは $O(n)$ の計算量を要し、探索が深まるほど指数関数的に遅くなる。`Dictionary` を採用することで、パスの件数に関わらず一定のパフォーマンスを維持できる。これはスケーラビリティの観点から必須の選択だ。

III. エラーハンドリングの境界

`On Error Resume Next` を使用している箇所に注目してほしい。ファイルシステム操作において、`Access Denied`（アクセス拒否）は例外ではなく「日常的な事象」だ。これによってプロセス全体が停止することを防ぎつつ、エラーをログとして記録する。プロフェッショナルは、エラーを無視するのではなく、「制御された状態で受け流す」のである。

結論

NTFSの高度な機能であるジャンクションやシンボリックリンクは、利便性と引き換えに、設計の甘いスクリプトに対しては致命的な罠となる。

深度制限による「物理的な制約」と、Dictionaryによる「論理的な記憶」を組み合わせることで、初めて、プロフェッショナルに相応しい堅牢な自動化ツールが完成する。レガシーな環境であっても、この原則は変わらない。常に、最悪のケースを想定して設計せよ。