VBScriptの「脱・FSO」戦略：数百万行を秒殺する文字列処理の極致
業務自動化の現場において、`Scripting.FileSystemObject`（以下FSO）は、確かに便利で直感的なインターフェースを提供してくれる。しかし、我々のような極限のパフォーマンスを求めるエンジニアにとって、FSOは「重い」という一点において、時には排除すべきボトルネックとなる。
特に、数万、数十万件のファイルパスを走査し、拡張子やディレクトリ名を抽出するようなバッチ処理において、FSOのインスタンス生成・解放のオーバーヘッドは無視できない。VBScriptの真のポテンシャルを引き出し、システムリソースを極限まで節約する、ネイティブ文字列関数のみを用いた高速パス分解アルゴリズムを伝授しよう。
なぜ FSO を捨てるのか？
FSOはCOMオブジェクトである。`CreateObject(“Scripting.FileSystemObject”)` をループ内で呼び出せば当然遅くなるし、たとえ外に出したとしても、内部で発生するアンマネージドコードとのブリッジ処理は、純粋なBSTR（Basic String）操作と比較して格段にコストが高い。
対して、`InStrRev` や `Split` は、VBScriptのランタイムエンジン（vbscript.dll）のコアロジックとして直接実装されている。これらを駆使すれば、メモリ消費を最小限に抑えつつ、CPUクロックを最大限に活かした超高速処理が可能となる。
究極のパス分解関数：実装コード
以下に、一切の外部依存を持たない純粋な分解ロジックを示す。この関数は、パスの最後が区切り文字（`\`）で終わっているか否か、あるいは拡張子が存在しないケースまでも考慮した、堅牢かつ軽量な実装である。
‘ @description パス文字列からディレクトリ、ファイル名、拡張子を高速に抽出する
‘ @param strPath 解析対象のフルパス文字列
‘ @return 配列(0:ディレクトリ, 1:ファイル名, 2:拡張子)
Function ParsePath(strPath)
Dim nLastSlash, nLastDot
Dim strDir, strFile, strExt
‘ 最後のパス区切り文字の位置を取得
nLastSlash = InStrRev(strPath, “\”)
‘ ディレクトリパスの抽出
If nLastSlash > 0 Then
strDir = Left(strPath, nLastSlash)
strFile = Mid(strPath, nLastSlash + 1)
Else
strDir = “”
strFile = strPath
End If
‘ 拡張子の抽出（ファイル名の中の最後のドットを探す）
nLastDot = InStrRev(strFile, “.”)
If nLastDot > 0 Then
strExt = Mid(strFile, nLastDot + 1)
strFile = Left(strFile, nLastDot – 1)
Else
strExt = “”
End If
‘ 結果を配列で返す
ParsePath = Array(strDir, strFile, strExt)
End Function
‘ — 使用例 —
Dim result, p
p = “C:\Projects\Archive\DataReport.log”
result = ParsePath(p)
WScript.Echo “Dir: ” & result(0)
WScript.Echo “Name: ” & result(1)
WScript.Echo “Ext: ” & result(2)
この実装が「伝説」足る理由
1. メモリ割り当ての最適化:
FSOのメソッドは、その都度COM経由で新しい文字列オブジェクトを生成し、メモリ上に配置する。この実装では、VBScript内部の文字列バッファを直接操作（ポインタ操作に近い感覚）するため、ガベージコレクションの負荷が極めて低い。
2. エラーハンドリングの潔さ:
FSOは存在しないパスに対してエラーを投げるが、この関数は「文字列としての妥当性」のみを判定する。システム連携において、ファイルが存在するか否かを判定する前の「前処理」として使う場合、この分離こそが疎結合アーキテクチャの鍵となる。
3. 拡張性の担保:
`Split` 関数を使用して `\` で分割する方法もあるが、大規模なパス文字列を分割する場合、メモリ上に一時的な配列を全件展開するため、メモリフラグメンテーションの原因となる。`InStrRev` を用いたインデックス参照方式は、メモリ使用量を定数（O(1)）に抑えることができる。
アーキテクトからの提言
大規模なバッチ処理を行う際、初心者はすぐにFSOの `GetFileName` や `GetExtensionName` に手を出す。しかし、我々の責務は「動くもの」を作ることではなく、「過酷な環境下で止まらない、最もリソース効率の良いロジック」を配置することだ。
もし貴方のシステムが、数百万レコードのCSVをパースし、ファイル操作を伴うような自動化を行っているなら、まずはこの「脱FSO」から着手してほしい。劇的なCPU使用率の低下と、スループットの向上を実感できるはずだ。
スクリプト言語だから遅いのではない。書き方を知らない者が書けば遅くなるだけだ。VBScriptの深淵を掌握し、レガシーな環境を最強の自動化プラットフォームへと昇華させよ。
