【VBScriptの深淵】異種OS間連携を制す――「パス正規化」の極致
レガシーシステムの墓場と揶揄されることもあるVBScript。だが、Windowsの心臓部を直接叩けるこの言語は、適切に扱えば、現代の肥大化したフレームワークすら足元にも及ばない「軽量かつ最強のグルーコード」へと変貌する。
今日のテーマは、システム間連携の死角、「パス区切り文字」の不整合だ。Linuxの `/` と Windowsの `\`。この小さな記号の不一致が、どれほどの深夜のバグ調査を生んできたことか。今回は、単なる置換ではない、メモリと実行速度を極限まで意識した「安全なパスパーサー」を伝授する。
なぜ「単純なReplace」ではいけないのか
多くの初学者は `Replace(str, “/”, “\”)` で満足する。しかし、システム連携の現場では、それは「地雷」だ。
- UNCパスの破壊: `\\Server\Share` を `//Server/Share` にしてはならない。
- 重複区切り: `path//to///file` のようなゴミ混じりの文字列を許容してはならない。
- メモリの断片化: 大量ループ内で無闇に文字列結合を繰り返せば、VBScriptの貧弱なガベージコレクションを圧迫する。
これらを解決し、堅牢なシステムを構築するためのアーキテクチャがこれだ。
実装：クロスプラットフォーム・パスパーサー
この関数は、単に文字を入れ替えるのではなく、パスの構造を維持しつつ、正規化を行う。
‘——————————————————————————-
‘ 関数名: NormalizePath
‘ 概要: OS間連携のためのパス正規化エンジン
‘ 引数: strPath – 対象のパス文字列
‘ targetOS – 0: Windows(\), 1: UNIX(/)
‘ 戻り値: 正規化されたパス文字列
‘——————————————————————————-
Function NormalizePath(ByVal strPath, ByVal targetOS)
Dim s, delimiter, otherDelimiter
If Len(strPath) = 0 Then Exit Function
‘ ターゲットに応じたデリミタ設定
If targetOS = 1 Then
delimiter = “/”
otherDelimiter = “\”
Else
delimiter = “\”
otherDelimiter = “/”
End If
s = strPath
‘ 1. まず異種デリミタを統一する
s = Replace(s, otherDelimiter, delimiter)
‘ 2. UNCパス（\\）を保護するための特殊処理
‘ Windows形式(0)の場合、先頭の二重スラッシュを維持する
If targetOS = 0 And Left(s, 2) = “//” Then
s = “\\” & Mid(s, 3)
End If
‘ 3. 重複デリミタを解消（正規表現エンジンを利用）
‘ VBScriptのRegExpはCOMオブジェクトだが、利用後は明示的に解放する
Dim regEx: Set regEx = CreateObject(“VBScript.RegExp”)
regEx.Global = True
regEx.IgnoreCase = True
‘ 重複を単一に置換（UNC保護のため、先頭の二重はスキップするロジックを内包）
If targetOS = 0 Then
regEx.Pattern = “[\\/]{2,}”
s = regEx.Replace(s, “\”)
‘ 先頭の復旧
If Left(s, 1) = “\” Then s = “\” & s
Else
regEx.Pattern = “[\\/]{2,}”
s = regEx.Replace(s, “/”)
End If
‘ オブジェクトの明示的解放（メモリ管理の鉄則）
Set regEx = Nothing
NormalizePath = s
End Function
アーキテクトの視点：なぜこの実装なのか
1. メモリ管理の厳格化
VBScriptにおいて `Set = Nothing` は単なる儀式ではない。WSH上で長時間稼働する監視スクリプトにおいて、COMオブジェクトの解放漏れは、じわじわとプロセスを食いつぶす「メモリリーク」の源泉だ。このコードでは、`RegExp`を関数スコープ内に閉じ込め、使い終わった瞬間に即座に解放している。
2. 正規表現による正規化の優位性
`Replace` を重ねる泥臭い実装は、将来のメンテナンスにおいて「地獄」を見る。`[\\/]{2,}` というパターンは、どんなに汚いパス入力（例: `C:\/Users///Admin\\`）であっても、一撃でクリーンなパスへと昇華させる。これがエンジニアリングというものだ。
3. UNCパスの保護
Windowsにおいて `\\` で始まるパスはネットワークリソースを指す。これを単純な置換で破壊すれば、アクセス権エラーが多発し、インフラエンジニアから疎まれることになる。この関数は、先頭の二重区切り文字という「コンテキスト」を物理的に守り抜く。
総括：レガシーを「レガシー」で終わらせない
VBScriptは古い。しかし、OSの根幹に触れるという点において、これほど効率的なツールは他にない。
システム間連携において最も重要なのは、データそのものではなく、「データが通る道筋（パス）」の整合性だ。今回紹介したパーサーを基盤に、あなたのスクリプトを、エラー知らずの堅牢なアーキテクチャへと進化させてほしい。
技術の枯れ木に花を咲かせること。それこそが、我々チーフアーキテクトに課せられた矜持である。
