【VBScript極限の知見】Windowsの呪縛「260文字制限」を破る！`subst`動的仮想ドライブとFSOの華麗なる融合
開発現場で自動化スクリプトを組んでいて、もっとも絶望する瞬間の一つがこれだ。
> 「エラー: パスが見つかりません。」
> (Error: Path not found)
原因は決まっている。Windows APIの歴史的呪物、MAX_PATH（260文字制限）だ。
深すぎる階層構造を持つ共有フォルダ、長すぎるプロジェクト名、そして無秩序にネストされたバックアップデータ。これらを標準のFSO（FileSystemObject）で直撃しようものなら、容赦なくスクリプトはクラッシュする。
「レジストリでLongPathsEnabledを有効にすればいいのでは？」
甘い。クライアント環境やドメインポリシーで固められた企業インフラにおいて、OS全体の挙動を変更することは現実的ではない。我々プロフェッショナルは、環境に依存せず、コードの実行コンテキスト内で完結するスマートな回避策を持たなければならない。
今回は、VBScriptから`subst`コマンドを動的に操り、深い階層を「物理ドライブ」に偽装してFSOを完全掌握する、極限のテクニックを伝授する。
—
なぜFSOは長いパスに無力なのか？
VBScriptの`Scripting.FileSystemObject`は、内部でWindowsのレガシーなファイルI/O API（`FindFirstFile`など）を呼び出している。このAPIの文字数制限が伝統的に「260文字（`MAX_PATH`）」に固定されているため、FSOオブジェクト自体にどれだけ綺麗にロジックを組んでも、パスが260文字を超えた瞬間に例外を吐く。
WNet系APIやUnicode版API（`\\?\`プレフィックスなど）をVBScriptから直接叩くのは、COMの型制約の観点から地獄の道連れになる。コードが肥大化し、保守性が完全に死ぬ。
導き出したアーキテクチャ：仮想ドライブ動的マッピング
発想を逆転させよう。
「パスが長すぎるなら、パスの起点を短くすればいい」
具体的にはこうだ。
1. スクリプト実行時に、空いているドライブレター（例: `Z:`）を特定する。
2. Windows標準の `subst` コマンドを叩き、問題の深い階層（例: `C:\Very\Long\Path\To\Target\Directory`）を `Z:` ドライブに割り当てる。
3. FSOからは `Z:\` 直下の浅いパスとして操作する（これで260文字制限を完全回避）。
4. 処理が完了したら、速やかに `subst /d Z:` でドライブ割り当てを解除する。
このアプローチの美しさは、FSO側のコードを一切書き換えることなく、既存の資産（ルーチン）をそのまま流用できる点にある。
—
プロダクションコード：堅牢な`subst`＋FSOラッパー
実務の現場で耐えうる、エラーハンドリングとクリーンアップ（後始末）を徹底したプロダクションコードを提示する。例外発生時やスクリプト中断時にも、必ず仮想ドライブが解放される設計（RAIIイディオムのVBScript的解釈）に注目してほしい。
Option Explicit
‘ ==============================================================================
‘ 260文字制限突破・仮想ドライブFSOバッチ処理エンジン
‘ ==============================================================================
Sub Main()
Dim targetDeepPath
targetDeepPath = “C:\Projects\2024\ClientA\Departments\Development\SubSystems\ModuleX\Resources\Documents\Archive\Backup\20241101\Source\Data\Input”
Dim virtualDrive
virtualDrive = “Z:”
Dim wsh, fso
Set wsh = CreateObject(“WScript.Shell”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 1. 仮想ドライブの割り当て実行
If Not AssignSubstDrive(wsh, virtualDrive, targetDeepPath) Then
WScript.Echo “致命的エラー: 仮想ドライブの割り当てに失敗しました。”
Exit Sub
End If
‘ — 【重要】ここから先はすべて「Z:\」を起点としてFSO操作を行う —
On Error Resume Next
‘ 例: Z:\直下のファイルを列挙して処理する
ProcessFilesViaVirtualDrive fso, virtualDrive
If Err.Number <> 0 Then
WScript.Echo “処理中にエラーが発生しました: ” & Err.Description
End If
On Error GoTo 0
‘ —————————————————————-
‘ 2. 確実に仮想ドライブを解放（クリーンアップ）
RemoveSubstDrive wsh, virtualDrive
Set fso = Nothing
Set wsh = Nothing
WScript.Echo “すべての処理が正常終了しました。”
End Sub
‘ ——————————————————————————
‘ 仮想ドライブ（subst）を割り当てる関数
‘ ——————————————————————————
Function AssignSubstDrive(wsh, driveLetter, actualPath)
Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 実パスが存在するか確認
If Not fso.FolderExists(actualPath) Then
WScript.Echo “エラー: 割り当て対象の実パスが存在しません -> ” & actualPath
AssignSubstDrive = False
Exit Function
End If
‘ 既に同名のドライブが割り当てられている場合は一度解除
RemoveSubstDrive wsh, driveLetter
‘ substコマンド実行 (例: subst Z: “C:\Very\Long\Path…”)
Dim cmd
cmd = “cmd.exe /c subst ” & driveLetter & ” “”” & actualPath & “”””
Dim exitCode
exitCode = wsh.Run(cmd, 0, True) ‘ ウィンドウ非表示(0)、同期実行(True)
If exitCode = 0 Then
AssignSubstDrive = True
Else
AssignSubstDrive = False
End If
Set fso = Nothing
End Function
‘ ——————————————————————————
‘ 仮想ドライブ（subst）を解放する関数
‘ ——————————————————————————
Sub RemoveSubstDrive(wsh, driveLetter)
‘ subst /d Z: を実行
Dim cmd
cmd = “cmd.exe /c subst /d ” & driveLetter
‘ エラーコードは無視（割り当てられていない場合のエラータスク対策）
wsh.Run cmd, 0, True
End Sub
‘ ——————————————————————————
‘ 仮想ドライブ経由でFSO操作を行う実務サンプル
‘ ——————————————————————————
Sub ProcessFilesViaVirtualDrive(fso, driveLetter)
Dim folder, file
Set folder = fso.GetFolder(driveLetter & “\”)
WScript.Echo “=== 仮想ドライブ [” & driveLetter & “] 内のファイルスキャン開始 ===”
For Each file In folder.Files
‘ 260文字を超えるパスであっても、Z:\file.txt ならFSOで安全に扱える
WScript.Echo “処理中: ” & file.Name & ” (サイズ: ” & file.Size & ” bytes)”
‘ TODO: ここに実際のファイル移動・リネーム・読み込み処理を記述
Next
‘ サブフォルダの再帰処理もZ起点で安全に突破可能
Dim subFolder
For Each subFolder in folder.SubFolders
‘ 必要に応じて再帰処理を展開
Next
End Sub
‘ エントリポイント呼び出し
Main()
—
現場で絶対に踏んではいけない「地雷ポイント」
このアーキテクチャは非常に強力だが、チーフアーキテクトとして実務導入する際に注意すべき設計上の罠（落とし穴）がいくつか存在する。
1. ドライブレターの競合問題
スクリプトがハードコーディングで `Z:` を使っているとき、もしすでにネットワークドライブや他の用途で `Z:` が使われていたらどうなるか？ `subst` コマンドはエラーを返し、スクリプトは崩壊する。
- 対策: 本番運用するコードでは、A〜Zの中から「現在使用されていないドライブレター」を動的にスキャンして取得するロジックを前段に挟むべきである（WMIの `Win32_LogicalDisk` や、各レターに対して `fso.DriveExists` を総当たりチェックするなど）。
2. スクリプト異常終了時の「幽霊ドライブ」
VBScriptが予期せぬエラーや手動強制終了（タスクマネージャーでのkillなど）によってアボートした場合、`RemoveSubstDrive` が実行されず、OS上にゴーストのような仮想ドライブ（アクセス不能な `Z:`）が残骸として残り続ける。
- 対策: 定期実行バッチであれば、処理の「最初」に必ず `subst /d Z:` を実行して古い残骸を強制クリアする防御的プログラミングを徹底すること。
3. UNCパス（ネットワーク共有）の罠
`subst` コマンドの仕様上、原則としてローカルパス（`C:\…`）に対してのみ仮想ドライブを割り当てることができる。ネットワーク上の共有フォルダ（`\\server\share\deep\path…`）に対して直接 `subst` を使おうとすると、コマンドが拒絶される。
- 対策: ネットワークパスの長短制限に悩む場合は、`subst` ではなく、一度 `net use Z: \\server\share\deep\path` のようにネットワークドライブとして割り当てるアプローチを検討する必要がある（ただし認証情報の保持やネットワーク遅延のコストを考慮すること）。
—
チーフアーキテクトからの総括
「ツールがないなら、環境をハックして作り出せ」。これがプロフェッショナルのエンジニアリングだ。
OSや言語の仕様制限（MAX_PATH）という壁にぶぶんだとき、安易に「VBScriptでは無理だからPowerShellに書き換えよう」「いや、.NET製コンソールアプリを作ろう」と逃げるのは簡単だ。しかし、保守されている既存のVBScript資産を生かしたまま、OSの機能（`subst`）を巧妙にインジェクトして最短で課題を解決するこの手法は、現場のエンジニアにとって強力なカードとなる。
アーキテクチャの美しさと泥臭いハックの融合。それこそが、システムを動かす真のエンジニアリングである。
