【実務・中級編】【ファイルI/O最適化】ADODB.Stream を用いたバイナリデータの高速な「部分読み込み」とシグネチャ判定 – VBScript (Visual Basic Scripting Edition)解析バイブル

【極限の知見】VBScriptにおけるバイナリI/Oの最適化：ADODB.Streamによる「シグネチャ判定」の設計思想

業務自動化の現場において、多くの開発者が陥る「致命的な設計ミス」がある。それは、「ファイルはすべてメモリに読み込んでから処理する」という、素朴かつ無謀な思考だ。

数KBのテキストファイルなら問題ない。しかし、数GBに及ぶログファイル、高解像度の画像、あるいは複雑なバイナリ形式のデータセットを相手にしたとき、その設計は一瞬にしてシステムをクラッシュさせる時限爆弾へと変わる。メモリ消費の爆発、ディスクI/Oの過負荷、そして実行速度の著しい低下。これらはすべて、プロフェッショナルたるエンジニアが避けるべき事態だ。

本稿では、VBScript（WSH）環境において、巨大なバイナリファイルから「必要な情報だけを、最小限のコストで」抽出するための極致、ADODB.Streamを用いたシグネチャ（マジックナンバー）判定の技術を伝授する。

1. なぜ FileSystemObject (FSO) では不十分なのか

VBScriptにおけるファイル操作の代名詞といえば `FileSystemObject` だ。しかし、バイナリデータの精密な操作において、FSOは極めて貧弱である。

FSOは基本的に「テキスト」を扱うために設計されており、バイナリデータを扱うには不向きだ。また、FSOには「ファイルの特定のオフセット（位置）へ直接ジャンプして、数バイトだけ読み込む」という、低レイヤーのシーク操作が極めて困難である。

バイナリファイルの形式を判別するには、ファイル全体を読み込む必要はない。ファイルの先頭数バイトに含まれる「マジックナンバー（シグネチャ）」を確認するだけで十分だ。この「先頭数バイトだけを、ピンポイントで抜き出す」操作を実現するために、我々は `ADODB.Stream` という強力な武器を選択しなければならない。

2. 設計思想：Seek & Sniff (探査と検知)

効率的なファイル判定プログラムの設計は、以下の3ステップに集約される。

1. Streamのバイナリモード起動: メモリ効率を最大化するため、ストリームを `adTypeBinary` で開く。
2. Positionの制御: ファイルの先頭（または特定のオフセット）へポインタを移動させる。
3. 限定的Read: 判定に必要な最小限のバイト数（例：8バイト）だけを読み取る。

この設計により、ファイルサイズが10GBであろうと、読み込みコストは常に「定数時間 $O(1)$」に抑えられる。これが、スケーラブルな自動化ツールを作るための鉄則だ。

3. プロダクション・グレードの実装例

以下に、実務でそのまま投入できるレベルの、堅牢なシグネチャ判定コードを示す。単なるコードの提示ではない。エラーハンドリング、リソースの解放、そして保守性を考慮した設計を組み込んでいる。

'**
' Module: BinaryFileInspector
' Description: ADODB.Streamを用いた高速なバイナリシグネチャ判定
' Author: Chief Architect
'**

Option Explicit

' 定数定義：判定対象のシグネチャ（マジックナンバー）
' 実務では、判定したい形式に合わせてここを拡充する
Const SIG_PDF  = "25504446" ' %PDF
Const SIG_ZIP  = "504B0304" ' PK.. (ZIP, docx, xlsx等)
Const SIG_PNG  = "89504E47" ' .PNG
Const SIG_JPG  = "FFD8FF"   ' .JPG (先頭3バイト)

' メイン処理
Sub Main()
    Dim targetFile, fileType
    
    ' テスト用ファイルパス（実環境に合わせて変更）
    targetFile = "C:\Temp\sample_document.pdf"
    
    WScript.Echo "Analyzing: " & targetFile
    
    ' ファイル形式の判定実行
    fileType = GetFileSignature(targetFile)
    
    If fileType <> "Unknown" Then
        WScript.Echo "Result: Detected as [" & fileType & "]"
    Else
        WScript.Echo "Result: Unknown file format."
    End If
End Sub

'------------------------------------------------------------------------------
' Function: GetFileSignature
' Purpose: ファイルの先頭バイトを読み取り、拡張子を推測する
' Arguments: strFilePath (String) - 対象ファイルのフルパス
' Returns: String - 判定されたファイル形式名、または "Unknown"
'------------------------------------------------------------------------------
Function GetFileSignature(strFilePath)
    Dim objStream, bytes, hexSignature, result
    Dim readLength : readLength = 8 ' 判定に必要な最大バイト数
    
    result = "Unknown"
    
    ' 1. ファイルの存在確認 (FSOを使用)
    Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
    If Not objFSO.FileExists(strFilePath) Then
        Err.Raise 1, "GetFileSignature", "File not found: " & strFilePath
    End If
    Set objFSO = Nothing

    On Error Resume Next ' エラーハンドリング開始
    
    ' 2. ADODB.Streamの初期化
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = 1 ' adTypeBinary (バイナリモード)
    objStream.Open
    objStream.LoadFromFile strFilePath
    
    If Err.Number <> 0 Then
        Err.Clear
        GetFileSignature = "Error: " & Err.Description
        Exit Function
    End If

    ' 3. シーク操作と限定的読み込み
    ' ファイルの先頭(0)へ移動し、必要な分だけ読み取る
    objStream.Position = 0
    bytes = objStream.Read(readLength)
    
    If Err.Number <> 0 Then
        Err.Clear
        GetFileSignature = "Error: Read failed"
        GoTo Cleanup
    End If

    ' 4. バイナリを16進数文字列に変換 (比較を容易にするため)
    hexSignature = ConvertBinaryToHex(bytes)
    
    ' 5. シグネチャ判定ロジック
    ' 部分一致を考慮し、判定を行う
    If InStr(hexSignature, SIG_PDF) > 0 Then
        result = "PDF"
    ElseIf InStr(hexSignature, SIG_ZIP) > 0 Then
        result = "ZIP/OfficeOpenXML"
    ElseIf InStr(hexSignature, SIG_PNG) > 0 Then
        result = "PNG"
    ElseIf InStr(hexSignature, SIG_JPG) > 0 Then
        result = "JPEG"
    End If

Cleanup:
    ' 6. リソースの確実な解放 (重要)
    If Not objStream Is Nothing Then
        objStream.Close
        Set objStream = Nothing
    End If
    
    If Err.Number <> 0 Then
        result = "Error: " & Err.Description
    End If
    
    GetFileSignature = result
    On Error GoTo 0 ' エラーハンドリング終了
End Function

'------------------------------------------------------------------------------
' Function: ConvertBinaryToHex
' Purpose: Byte Arrayを16進数の文字列に変換する
'------------------------------------------------------------------------------
Function ConvertBinaryToHex(binData)
    Dim i, hexStr, byteVal
    hexStr = ""
    
    ' バイナリデータが空でないかチェック
    If IsNull(binData) Then 
        ConvertBinaryToHex = ""
        Exit Function
    End If

    ' 各バイトをループして16進数に変換
    ' VBScriptのByte Arrayは直接扱いにくいため、1バイトずつ処理
    For i = 1 To LenB(binData)
        byteVal = AscB(MidB(binData, i, 1))
        ' 2桁の16進数に整形
        hexStr = hexStr & Right("0" & Hex(byteVal), 2)
    Next
    
    ConvertBinaryToHex = hexStr
End Function

' 実行
Main

4. プロフェッショナルのための注意点：落とし穴を回避せよ

この実装を実務に投入する際、以下の3点に留意せよ。これを知っているかどうかが、エンジニアとしての格の違いを生む。

① リソースリークの徹底防止

`ADODB.Stream` は COM オブジェクトである。スクリプトが異常終了したり、オブジェクトを `Nothing` で解放し忘れたりすると、ファイルが「使用中」のままロックされ、後続の処理が失敗する原因となる。必ず `Cleanup` ブロックを設け、`Close` と `Set … = Nothing` を確実に実行すること。

② 16進数変換のオーバーヘッド

上記のコードでは、比較の容易さを優先して `ConvertBinaryToHex` を用いている。数千個のファイルをループで処理する場合、この変換処理がボトルネックになる可能性がある。超高速化が必要な場合は、バイナリのまま直接バイト値を比較するロジックに書き換えるべきだが、通常の業務自動化ツールであれば、この実装が「保守性と速度のベストバランス」である。

③ エンコーディングの誤解

バイナリモード (`adTypeBinary = 1`) で開いている限り、文字コードの問題は発生しない。しかし、もし途中で `adTypeBinary = 2` (テキストモード) に切り替えてしまうと、改行コードの変換（CRLF/LF）が勝手に行われ、シグネチャが破壊される。バイナリ操作を行う際は、「絶対にテキストモードに触れない」ことを徹底せよ。

結論

「動けばいい」というコードは、現場ではゴミと同じだ。
巨大なデータ、予期せぬファイル形式、限られたリソース。これら過酷な条件下でも、スマートかつ高速に、そして堅牢に動作するコードを書くこと。それこそが、我々が目指すべきエンジニアリングの姿である。

今回紹介した `ADODB.Stream` による部分読み込みのテクニックを、君の武器庫に加えておけ。