VBScriptを掌握する極限の知見：【引数パス標準化】WScript.Arguments の囲みダブルクォーテーション自動除去と末尾記号補正モジュール
レガシーシステムの自動化基盤や、今なお現場のインフラを支え続けるWSH（Windows Script Host）環境において、ファイルパスの揺れに起因するバグほど不毛なものはない。
特に、デスクトップ上のバッチファイルやショートカットに対してユーザーがファイルを「ドラッグ＆ドロップ」した際、あるいはシェルから不完全なエスケープでコマンドが実行された際、`WScript.Arguments`が返す文字列は、百戦錬磨のエンジニアをも悩ませる「罠」を孕んでいる。
本稿では、VBScriptにおける引数パスの生態系を解剖し、「囲みダブルクォーテーションの自動除去」と「末尾パス区切り文字（`\`）の厳密な統御」をノーミステイクで完遂する、プロダクション品質のパス標準化モジュールを提示する。
—
1. WScript.Arguments が隠す致命的な罠
Windowsのシェル（Explorer.exe）は、ファイルパスにスペースや特殊文字が含まれている場合、引数をダブルクォーテーション（`”`）で囲んでスクリプトに渡す。しかし、この挙動は一筋縄ではいかない。
1. 選択するファイル数による挙動の変化:
単一ファイルのドラッグ＆ドロップと、複数ファイルの同時ドロップでは、WSHが解釈するクォーテーションの付与状態やインデックスの振る舞いが微妙に異なる。
2. 手動入力・スクリプト間連携のノイズ:
タスクスケジューラや別プロセスからの呼出において、意図せず二重にクォーテーションが付与されたり、末尾に余計なバックスラッシュが残存したりする。
この「パスの揺れ」をそのままファイルシステム操作オブジェクト（`Scripting.FileSystemObject` など）に渡せば、`Path not found`（パスが見つかりませんエラー、エラー800A004C）が容赦なくスクリプトをクラッシュさせる。
—
2. アーキテクチャ設計：堅牢な正規化パイプライン
真に信頼できるパス標準化関数は、以下の3つのステップをアトミック（不可分）に実行しなければならない。
1. 前後の空白トリム: 予期せぬ制御文字やスペースの排除。
2. 囲みクォーテーションの剥離: 先頭と末尾にペアで存在する `”` のみを安全に除去（内部のクォーテーションは死守する）。
3. 末尾セパレータの正規化: ディレクトリパスを扱う場合における、末尾の `\` の付与・未付与の強制統御。
これをVBScriptの貧弱な標準関数群だけでスマートに書こうとすると、冗長な条件分岐の迷宮に迷い込む。ここでは、VBScriptが内包する強力なCOMコンポーネント `VBScript.RegExp` を極限まで効率よく使い回し、メモリリークを完全に排除した実装を行う。
—
3. 実装コード：`NormalizePathModule.vbs`
以下のコードは、そのままインクルードファイルあるいはメインスクリプトとして利用できる、極限まで最適化されたパス標準化モジュールである。
‘ ==============================================================================
‘ 模块名称: NormalizePathModule.vbs
‘ 概要 : WScript.Arguments パス標準化・末尾記号補正ライブラリ
‘ 著作権 : Chief Architect’s Lab
‘ ==============================================================================
Option Explicit
‘ ——————————————————————————
‘ 定数定義 (末尾セパレータ制御モード)
‘ ——————————————————————————
Const PATH_MODE_KEEP = 0 ‘ 現状維持
Const PATH_MODE_ADD = 1 ‘ 常に末尾に “\” を付与 (ディレクトリ用)
Const PATH_MODE_REMOVE = 2 ‘ 常に末尾の “\” を除去 (ファイル用)
‘ ——————————————————————————
‘ メイン処理テスト用エントリポイント（直接実行時）
‘ ——————————————————————————
If WScript.Arguments.Count > 0 Then
Dim i, rawArg, cleanPath
WScript.Echo “=== パス標準化プロセス開始 (総引数: ” & WScript.Arguments.Count & “) ===”
For i = 0 to WScript.Arguments.Count – 1
rawArg = WScript.Arguments(i)
‘ ディレクトリとして扱い、末尾に必ず “\” を付与する例
cleanPath = StandardizePath(rawArg, PATH_MODE_ADD)
WScript.Echo ” [” & i & “]” & vbCrLf & _
” Raw : ” & rawArg & vbCrLf & _
” Clean : ” & cleanPath
Next
Else
WScript.Echo “引数が渡されていません。ファイルをドラッグ＆ドロップしてください。”
End If
‘ ==============================================================================
‘ 関数名 : StandardizePath
‘ 引数 :
‘ ByVal strPath (String) – 対象のパス文字列
‘ ByVal nMode (Integer) – 末尾セパレータ制御モード (PATH_MODE_)
‘ 戻り値 : String – 標準化されたパス
‘ 備考 : 正規表現オブジェクトをローカルで完結させ、グローバル汚染を防ぐ
‘ ==============================================================================
Function StandardizePath(ByVal strPath, ByVal nMode)
If IsNull(strPath) Or Trim(strPath) = “” Then
StandardizePath = “”
Exit Function
End If
‘ 1. 前後の空白を除去
Dim result
result = Trim(strPath)
‘ 2. 囲みダブルクォーテーションの厳密な剥離
‘ 先頭の ” と末尾の ” がペアで存在する場合のみ置換する
‘ ※途中のクォーテーションを破壊しないよう、正規表現でアンカーを固定
Dim objRegEx
Set objRegEx = CreateObject(“VBScript.RegExp”)
objRegEx.Pattern = “^””(.)””$”
objRegEx.IgnoreCase = True
objRegEx.Global = False
If objRegEx.Test(result) Then
result = objRegEx.Replace(result, “$1”)
End If
‘ 3. パスのスラッシュスラッシュ（/）をバックスラッシュ（\）へ統一（必要に応じて）
result = Replace(result, “/”, “\”)
‘ 4. 末尾のパス区切り文字（\）の統御
Select Case nMode
Case PATH_MODE_ADD
‘ 末尾が \ で終わっていなければ追加（ただしルートディレクトリ “C:\” などの単独バックスラッシュは維持）
If Right(result, 1) <> “\” And Len(result) > 0 Then
result = result & “\”
End If
Case PATH_MODE_REMOVE
‘ 末尾が \ で、かつルートドライブ直下（例: “C:\”）でない場合のみ除去
If Right(result, 1) = “\” And Len(result) > 3 Then
result = Left(result, Len(result) – 1)
End If
Case PATH_MODE_KEEP
‘ 何もしない
End Select
‘ オブジェクトの明示的破棄（メモリ最適化の基本）
Set objRegEx = Nothing
StandardizePath = result
End Function
—
4. チーフアーキテクトによるコード解説と技術的ポイント
A. 正規表現による「安全な」クォーテーション剥離
単に `Replace(str, “”””, “”)` を実行するアマチュアのコードを見かけるが、これは論外である。ファイル名やパスの途中に万が一ダブルクォーテーションが含まれていた場合（稀にある）、パス全体が破壊される。
本モジュールでは、正規表現パターン `^”(.)”$` を用いることで、「文字列の先頭と末尾に同時に存在するペア」のみを正確にキャプチャして剥ぎ取る。これにより、偶発的なデータ破損を100%防ぐ。
B. COMオブジェクトのライフサイクル管理とメモリ最適化
VBScriptのスクリプトエンジンはガベージコレクションを備えているが、COMコンポーネント（`VBScript.RegExp` など）のインスタンス化をループ内や高頻度で呼び出される関数内で行う場合、明示的な `Set objRegEx = Nothing` を怠ると、不安定なメモリリークやメモリ断片化を引き起こす。
本コードでは、関数スコープ内で生成・破棄を完結させ、リソースの寿命を極限までコントロールしている。
C. ルートディレクトリ（`C:\` 等）の保護
ファイルパスの末尾処理において、単なる文字数や末尾判定だけで `\` を削ると、`C:\` が `C:` に変貌し、FileSystemObjectが致命的なエラーを起こす。
`PATH_MODE_REMOVE` の実装において `Len(result) > 3` という安全弁（ガード条件）を設けているのは、こうしたWindowsファイルシステムの物理的特性を知り尽くしたプロフェッショナルならではの配慮である。
—
5. 実現場への導入と運用ティップス
1. 文字コードの呪縛に備える:
VBScriptファイルをUTF-8（BOM付き）で保存する場合、レガシーOS（Windows 7等）や特定の環境ではWSHホストが正しくデコードできないリスクがある。プロダクション環境では ANSI (Shift_JIS) で保存するか、`cscript` / `wscript` 実行時の文字コード差異を意識すること。
2. ログ出力の標準化:
自動化スクリプトは「サイレントに失敗する」のが最大の悪である。本モジュールで標準化したパスを処理の直前に必ずログ（またはイベントビューア）へ吐き出す設計に組み込むことで、万が一のパス起因のトラブルシューティング時間をゼロに収斂させることができる。
レガシーであっても、設計思想がモダンであれば、VBScriptは依然として最強かつ最速のWindows自動化プラットフォームであり続ける。このモジュールをあなたのアーキテクチャの礎として組み込んでほしい。
