【260文字制限の罠】Windows長尺パス問題に対するFSOの限界と失敗しないパス設計
開発現場で突如発生し、プロジェクトを暗礁に乗り上げさせる「パスが長すぎます」というエラー。
Windowsの歴史的遺産であるMAX_PATH（260文字制限）は、VBScriptのFile System Object（FSO）を運用する上で避けて通れない最大の壁だ。
今回は、この深層階層の悪夢をいかにして回避し、現場の信頼に耐えうる堅牢な自動化スクリプトを構築するか、その極限の知見を伝授する。
—
1. なぜFSOは長尺パスの前で無力なのか
Windows APIの基本関数群は、歴史的背景から長らく最大パス長を260文字（`C:\…\filename.ext`の終端NULL含む）に制限してきた。
FSO（`Scripting.FileSystemObject`）はこの古いWin32 APIを内部でラップしているため、パスが260文字を超えた瞬間に容赦なく致命的な例外（エラー）を発生させ、スクリプトをクラッシュさせる。
「ローカルの作業用フォルダだから大丈夫」という油断は禁物だ。
深い階層構造を持つ共有サーバー（NAS）や、ユーザーが勝手に掘り下げたバックアップフォルダをFSOで走査した瞬間、スクリプトは沈黙する。エラーハンドリングなきコードは、業務自動化の敵なのだ。
—
2. 防衛策の核心：ショートパス（8.3形式）の罠と限界
FSOには、長尺パス対策としてファイルやフォルダのショートパス（ShortPathプロパティ）を取得する機能が存在する。
`C:\Very\Long\Path\Name\File.txt` を `C:\VERYLO~1\FILE.TXT` のような8.3形式に変換し、一時的に文字数制限を回避するというアプローチだ。
しかし、シニアエンジニアとして警告しておく。ショートパスへの過度な依存は悪手である。
- NTFSのレジストリ設定（`NtfsDisable8dot3NameCreation`）により、モダンな環境ではショートパスの生成が無効化されているケースが多い。
- 無効な環境で `.ShortPath` を呼び出すと、それ自体が実行時エラーを引き起こす。
したがって、設計の基本方針は「FSOの限界を前提にし、例外を絶対に上位へ漏らさない防衛的コーディング」に尽きる。
—
3. 【プロダクションコード】エラーで止まらない堅牢なファイル走査
以下のコードは、長尺パスやアクセス権エラーに直面してもスクリプトが停止せず、ログを残しながら安全に処理を継続するプロダクションコードの模範解答だ。
Option Explicit
‘ 実行メイン処理
Sub Main()
Dim fso, targetPath
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 検査対象のルートパス（必要に応じて変更）
targetPath = “C:\Temp\DeepPathTest”
If fso.FolderExists(targetPath) Then
WScript.Echo “走査を開始します: ” & targetPath
RecursiveSafeSearch fso.GetFolder(targetPath), fso
WScript.Echo “走査が完了しました。”
Else
WScript.Echo “エラー: 指定されたフォルダが存在しません。”
End If
Set fso = Nothing
End Sub
‘ 再帰的な安全走査関数
Sub RecursiveSafeSearch(objFolder, fso)
Dim objSubFolder, objFile
‘ 【重要】エラーをトラップし、長尺パスやアクセス拒否でスクリプトを止めない
On Error Resume Next
‘ 1. 現在のフォルダ内のファイルを処理
For Each objFile In objFolder.Files
If Err.Number <> 0 Then
‘ 長尺パス等でファイルオブジェクト取得に失敗した場合のログ記録
WScript.Echo “[警告] ファイル読み込みスキップ: ” & Err.Description
Err.Clear
Else
‘ ここに実際のファイル処理（DB連携やリネーム等）を記述
‘ 例: WScript.Echo objFile.Path
End If
Next
‘ 2. サブフォルダを再帰的に処理
For Each objSubFolder In objFolder.SubFolders
If Err.Number <> 0 Then
WScript.Echo “[警告] フォルダアクセススキップ (長尺パスの可能性): ” & Err.Description
Err.Clear
Else
‘ 再帰呼び出し
RecursiveSafeSearch objSubFolder, fso
End If
Next
On Error GoTo 0
End Sub
‘ 実行
Main()
—
4. 実務における設計の極意：データベース連携の注意点
業務自動化ツールにおいて、走査したファイルパスをデータベース（SQLiteやSQL Serverなど）に登録する設計はよくある要件だ。
ここで「260文字制限を超えるパスをそのままDBのVARCHAR(255)カラムに突っ込む」という致命的な設計ミスが多発する。
- DB側のカラム設計: ファイルパスを格納するカラムは、最低でも `VARCHAR(1024)` あるいは `NVARCHAR(MAX)` を確保すること。
- ハッシュの活用: パス長そのものが原因でDB側のインデックスやユニーク制約が火を吹く場合がある。長大なパスはSHA-256等のハッシュ値を別カラムに保持し、一意制約の担保にはそちらを使うのがプロのアーキテクチャだ。
—
総括
VBScriptとFSOは枯れた技術であるがゆえに、現代の複雑化したOS環境（深い階層構造）と衝突しやすい。
「パスが長くなる可能性がある構造を作らない」という運用上のルール作りはもちろんのこと、コードレベルでは `On Error Resume Next` を戦略的に駆使し、例外を飲み込んでロギングする「止まらない仕組み」を実装すること。
これこそが、現場の信頼を勝ち取るエンジニアの仕事である。
