空白という名の罠を断つ：FSOと8.3短縮パスによる外部コマンド実行の極意
Windowsの歴史は「空白」との戦いであると言っても過言ではない。
`C:\Program Files\Legacy App\data.csv`
このパスをそのまま `WScript.Shell` の `Run` メソッドに渡して、なぜコマンドが動かないのかと頭を抱える初心者は後を絶たない。コマンドプロンプト（cmd.exe）は、引数の区切り文字として「スペース」を解釈する。引用符（ダブルクォーテーション）で囲めば解決するというのが教科書的な回答だが、引数が入れ子になった複雑なバッチ処理や、古いレガシーAPIを叩く際、引用符の処理はしばしば破綻する。
今日は、VBScriptにおけるFSO（FileSystemObject）の隠れた真打ち、「8.3形式（ShortPath/ShortName）」を活用した、極めて堅牢かつエレガントな解法を伝授する。
—
1. なぜ「短縮パス」なのか
Windowsファイルシステムには、MS-DOS時代との互換性を維持するために、長いファイル名に対して必ず「8.3形式（例: `PROGRA~1`）」という短縮名が自動生成される仕組みがある。
この形式の最大の利点は、「空白が含まれない」ことだ。
外部コマンドへのパス受け渡しにおいて、空白を排除することは、エスケープシーケンスの悪夢から解放されることを意味する。引用符の有無による構文エラーを気にする必要は、もはや存在しない。
—
2. 鋼鉄のコード：FSOによる安全なパス変換
まずは、この原則を実装した実用的なVBScriptコードを見てほしい。ここでは、単にパスを変換するだけでなく、オブジェクトのメモリ管理までを考慮したアーキテクチャを示す。
‘ — 堅牢な外部コマンド実行のためのパス変換プロシージャ —
Option Explicit
Function GetShortPathSafe(ByVal strPath)
Dim fso, fileObj
‘ FSOオブジェクトを生成
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 対象パスが存在するか確認（存在しないパスは変換不可）
If fso.FileExists(strPath) Then
Set fileObj = fso.GetFile(strPath)
‘ ShortPathプロパティで8.3形式を取得
GetShortPathSafe = fileObj.ShortPath
ElseIf fso.FolderExists(strPath) Then
Set fileObj = fso.GetFolder(strPath)
GetShortPathSafe = fileObj.ShortPath
Else
‘ 存在しない場合は元のパスを返す（またはエラーハンドリング）
GetShortPathSafe = strPath
End If
‘ メモリ最適化：明示的なオブジェクトの解放
‘ 厳密な環境では、ここでnothingを代入し、参照カウントを即座に減らす
Set fileObj = Nothing
Set fso = Nothing
End Function
‘ — 実装例：外部コマンドの実行 —
Dim shell, targetFile, cmd
targetFile = “C:\Program Files\My Application\config.ini”
Set shell = CreateObject(“WScript.Shell”)
‘ 空白問題を回避して安全にパスを渡す
cmd = “notepad.exe ” & GetShortPathSafe(targetFile)
shell.Run cmd, 1, True
Set shell = Nothing
—
3. シニアエンジニアが押さえるべき「重み」
このコードを実装する上で、以下の3点は心に刻んでおくべきだ。
A. 8.3短縮パスの無効化リスク
近年のWindowsでは、パフォーマンス向上やセキュリティ上の理由から、NTFSの短縮名生成機能が無効化されているケースがある（`fsutil 8dot3name query` で確認可能）。システム管理者は、自社環境がこの機能をサポートしているか事前に調査する必要がある。もし無効化されている場合は、自前でAPIを叩くか、引用符の処理を再設計する覚悟が必要だ。
B. メモリリークという名の「静かな脅威」
VBScriptはガベージコレクションが強力ではない。特にループ処理の中でFSOを生成し続けるような書き方をすれば、メモリ消費は確実に肥大化する。上記のコードのように、`Set fso = Nothing` を明示的に呼び出し、オブジェクトのライフサイクルを制御することは、長期間稼働するタスクスケジューラ上のスクリプトでは必須の作法である。
C. パスの正規化
`GetShortPath` を呼ぶ前に、必ず `GetAbsolutePathName` 等でパスを正規化しておくことを強く推奨する。相対パス (`..\`) が混在した状態で変換をかけると、期待しない挙動を引き起こすことがあるからだ。
—
結びに代えて
「コードが動く」ことと「コードが信頼できる」ことの間には、深い溝がある。
今回紹介した8.3形式の変換は、レガシーなWindows環境において、最もコストが低く、かつ最も信頼性の高い解決策の一つだ。
APIやモダンな言語への移行を叫ぶ声は多いが、VBScriptが今なお現場の自動化を支えているのは、こうしたOSの深層部分に直接触れられる簡潔さゆえである。道具の仕様を極限まで理解し、その限界を見極めた上で使う。それこそが、エンジニアとしての真の矜持である。
現場の健闘を祈る。
