【入門編】【実務中級者向け】FSOで取得した全ファイルパスの文字数をチェックしWindows制限に近づいている長尺パスを事前検出するリスト化バッチ – VBScript (Visual Basic Scripting Edition)解析バイブル

260文字の壁を突破せよ：FSOの再帰処理で挑む「長尺パス検出」マスターガイド

こんにちは。現場の自動化を支えるアーキテクトです。

「マクロの記録」から一歩踏み出し、自らコードを書き始めたあなた。素晴らしい一歩を踏み出しましたね。しかし、実務の現場――特にファイルサーバーの移行やデータ整理といったミッションにおいて、プログラミングの知識だけでは太刀打ちできない「物理的な制約」に直面することがあります。

その代表格が、Windowsの「260文字の壁（MAX_PATH制限）」です。

フォルダの中にフォルダ、その中にまたフォルダ……と階層が深くなると、ファイルパスの合計文字数が260文字を超えてしまうことがあります。これが起きると、バックアップソフトがエラーを吐いたり、ファイルをコピーできなくなったりと、業務を止める致命的なトラブルに繋がります。

今日は、この「見えない壁」を事前に察知するための、FileSystemObject（FSO）を用いた高度な走査スクリプトを題材に、VBScriptの本質的な使い方を伝授しましょう。

1. 本日のミッション：長尺パス・スキャナーの開発

私たちが作るプログラムの仕様はこうです。

1. 指定したルートフォルダから、すべてのサブフォルダを再帰的に探索する。
2. 各ファイルの「フルパスの文字数」をカウントする。
3. あらかじめ設定したしきい値（例：240文字）を超えているファイルを特定する。
4. その結果を、後でExcelなどで加工しやすいようCSV形式で出力する。

これを実現するために、VBScriptの強力な武器である `FileSystemObject` を使いこなします。

2. 核心となる技術：FSOと「再帰処理」

このプログラムの心臓部は、「再帰処理（Recursion）」です。

通常、フォルダの中身を見るには「フォルダAを見る」→「その中のフォルダBを見る」という手順を踏みます。しかし、フォルダの深さがどれくらいになるかは事前には分かりません。

そこで、「フォルダを見つけたら、自分自身（同じ関数）をもう一度呼び出して、その中を探索させる」という手法を取ります。これを「再帰」と呼びます。

図解：再帰処理のイメージ

[ルートフォルダ]
  │
  ├── [フォルダ1] (関数を呼び出し)
  │     ├── ファイルA (文字数チェック)
  │     └── [サブフォルダ1-1] (さらに関数を呼び出し...)
  │           └── ファイルB (文字数チェック)
  │
  └── [フォルダ2] (関数を呼び出し)
        └── ファイルC (文字数チェック)

まるでマトリョーシカのように、関数の中に自分自身が入り込んでいくイメージです。これこそが、階層構造を攻略する唯一にして最強の手段です。

3. 実装コード：長尺パス検出バッチ

さあ、準備はいいですか？ 現場でそのまま使える、プロフェッショナルなコードを提示します。

' ==========================================================================
' Script Name: LongPathDetector.vbs
' Description: 指定フォルダ内の全ファイルを走査し、パスが長いものをCSV出力する
' Author: Legendary Chief Architect
' ==========================================================================

Option Explicit

' --- 設定エリア ---
Const TARGET_PATH = "C:\Your\Target\Folder" ' ← 調査したいフォルダを指定
Const OUTPUT_CSV  = "C:\Temp\LongPathList.csv" ' ← 結果の出力先
Const THRESHOLD   = 240                      ' ← 検知する文字数のしきい値

' --- グローバル変数 ---
Dim objFSO, objOutputFile, objTargetFolder

Set objFSO = CreateObject("Scripting.FileSystemObject")

' メイン処理の開始
Main

Sub Main()
    On Error Resume Next ' エラーハンドリングの準備

    ' 1. ターゲットフォルダの存在確認
    If Not objFSO.FolderExists(TARGET_PATH) Then
        MsgBox "エラー: 指定されたフォルダが見つかりません。" & vbCrLf & TARGET_PATH, vbCritical
        Exit Sub
    End If

    ' 2. CSV出力用ファイルの作成
    ' 文字コードはShift-JIS（標準的なVBScriptのTextStream仕様）
    Set objOutputFile = objFSO.CreateTextFile(OUTPUT_CSV, True)
    objOutputFile.WriteLine "PathLength,FullPath" ' CSVヘッダー

    ' 3. 走査開始
    Set objTargetFolder = objFSO.GetFolder(TARGET_PATH)
    
    WScript.Echo "走査を開始します。時間がかかる場合があります..."
    
    ' 再帰処理の呼び出し
    RecursiveScan objTargetFolder

    ' 4. 後処理
    objOutputFile.Close
    Set objOutputFile = Nothing
    Set objFSO = Nothing

    WScript.Echo "完了しました！" & vbCrLf & "結果ファイル: " & OUTPUT_CSV
End Sub

' --- 再帰スキャン用サブルーチン ---
Sub RecursiveScan(objCurrentFolder)
    Dim objFile, objSubFolder
    
    ' エラーハンドリング: アクセス権限がないフォルダ（System Volume Information等）対策
    If Err.Number <> 0 Then
        Err.Clear
        Exit Sub
    End If

    ' --- A. 現在のフォルダ内の「ファイル」をチェック ---
    On Error Resume Next ' ファイルアクセスエラー対策
    For Each objFile In objCurrentFolder.Files
        If Err.Number = 0 Then
            ' パスの長さを判定
            If Len(objFile.Path) >= THRESHOLD Then
                ' CSVに書き出し (文字数, パス)
                objOutputFile.WriteLine Len(objFile.Path) & "," & objFile.Path
            End If
        Else
            ' アクセス拒否などの場合はスキップ
            Err.Clear
        End If
    Next

    ' --- B. 現在のフォルダ内の「サブフォルダ」へ潜る（再帰） ---
    For Each objSubFolder In objCurrentFolder.SubFolders
        ' 再帰呼び出し：自分自身を呼び出す
        RecursiveScan objSubFolder
    Next
    On Error GoTo 0 ' エラーハンドリングを通常状態に戻す
End Sub

4. 伝説のアーキテクトが教える「ここが落とし穴」

コードをコピペして動かすだけでは、あなたはまだ「初級者」です。プロとして、以下の3つの重要な知見を脳に刻んでください。

① 「アクセス拒否」という名の壁

Windowsには、管理者であっても簡単には触れないシステム保護フォルダ（`System Volume Information` など）が存在します。これらを無理に読みに行こうとすると、プログラムは「実行時エラー：書き込み禁止」で即死します。
コード内の `On Error Resume Next` と `Err.Number` のチェックは、単なるおまじないではなく、「予期せぬエラーでプロセスを停止させないための防衛策」なのです。

② オブジェクトのライフサイクル

VBScriptは、使い終わったオブジェクトを明示的に解放する（`Set obj = Nothing`）習慣をつけるべきです。大規模な走査を行う際、メモリ上に古いオブジェクトが残り続けると、動作が重くなるだけでなく、予期せぬメモリリークを招きます。これは、大規模システムを設計する上での鉄則です。

③ 再帰のコスト

再帰処理は非常に強力ですが、フォルダ階層が極端に深い（数千階層など）場合、メモリの「スタック領域」を使い果たし、スタックオーバーフローを起こす可能性があります。通常のファイルサーバー運用ではまず起こりませんが、「理論上のリスク」を知っておくことが、プロのエンジニアです。

5. まとめ：ここをクリアすれば、基本はバッチリです

今回のコードで学んだことは、以下の通りです。

• FSO (FileSystemObject) はファイル・フォルダ操作の万能ツール。
• 再帰処理 を使えば、未知の深さの階層構造も攻略できる。
• エラーハンドリング は、実務における「生存戦略」である。

「マクロの記録」は、決められた動きを再現するだけのものです。しかし、今回のように「条件（文字数）に基づいて、構造（階層）を探索し、結果を報告する」というロジックを組み立てられるようになれば、あなたはもう立派な自動化エンジニアの入り口に立っています。

次は、このCSVの結果を自動でExcelに読み込ませ、グラフ化する工程に挑戦してみるのも良いでしょう。

さあ、恐れずにコードを書き進めてください。応援していますよ。