【実務・中級編】【実務中級者向け】FSOを用いた複数CSVの文字コード（Shift_JIS / UTF-16）自動判別と分類レポート作成 – VBScript (Visual Basic Scripting Edition)解析バイブル

VBScript (Visual Basic Scripting Edition)

2026.10.31

文字コードの混沌を制す：FSOによるCSV文字コード自動判別と堅牢なレポート生成術

文字コードの混沌を制す：FSOによるCSV文字コード自動判別と堅牢なレポート生成術

現場のエンジニア諸君、今日も「文字化け」という名の、制御不能なバグに頭を悩ませているのではないか？

業務自動化の現場において、CSVファイルの扱いは避けて通れない。しかし、現実は非情だ。あるシステムからは Shift_JIS (ANSI) で出力され、別のモダンなSaaSからは UTF-16 (Unicode) で吐き出される。これらが一つのフォルダに混在している状況で、無策にファイルを開こうとすれば、データは瞬時にゴミ（文字化け）へと姿を変える。

「とりあえず、文字コードを調べてから処理すればいい」
その考えは正しい。だが、「どうやって、かつ、いかに堅牢に判定するか」 という設計思想が欠けている者が多すぎる。

本稿では、VBScriptの `FileSystemObject (FSO)` を極限まで活用し、混在するCSVの文字コードを自動判別してレポート化する、プロダクションレベルの設計手法を伝授する。

1. 判定のロジック：`OpenTextFile` の「裏」を突く

VBScriptの `FSO.OpenTextFile` メソッドには、`Format` 引数が存在する。

`0 (TristateNotALogic)`：システム既定（日本語環境では通常 Shift_JIS）
`-1 (TristateTrue)`：Unicode (UTF-16)
`2 (TristateFalse)`：使用されない

この仕様を逆手に取る。
「まず、そのファイルを Unicode (UTF-16) として開いてみる」というアプローチだ。

もしファイルが実際には Shift_JIS で書かれている場合、それを Unicode として無理やり読み込むと、文字列の中に大量の Null文字 (`Chr(0)`) が混入する。この特性を利用することで、外部ライブラリに頼らずとも、極めて高速かつ軽量に文字コードを判定できる。

これが、オブジェクトの挙動を深く理解している者が選ぶ、最も効率的な戦略だ。

2. プロダクション設計における3つの鉄則

コードを書く前に、以下の設計思想を脳に刻んでおけ。これらが欠けたコードは、本番環境では「ただの動くゴミ」に過ぎない。

1. リソースの解放（Lifecycle Management）：
`TextStream` オブジェクトを使い終わった後、確実に `Close` し、`Nothing` で解放しているか？ファイルハンドルを掴んだままにすることは、後続のプロセスを死に至らしめる。
2. エラーハンドリングの局所化：
`On Error Resume Next` をファイル全体にばら撒くのは素人のすることだ。エラーが起きうる「境界線」のみを最小単位で囲い、エラーが発生した際に「何が原因か（ファイルロックか、権限不足か）」を特定できるように設計せよ。
3. 冪等性（Idempotency）と堅牢性：
レポート出力先のCSVが既に存在する場合、どうするか？上書きか、追記か。また、読み取り対象のファイルが他のプロセスによってロックされている場合、スクリプト全体を落とさずにスキップできるか？

3. 実装例：CSV文字コード判別・レポート生成エンジン

以下に、実務でそのまま利用可能な、保守性の高いコードを示す。

'***
' Script Name: CSV_Encoding_Detector.vbs
' Description: フォルダ内のCSVの文字コード(SJIS/UTF-16)を判定し、レポートを作成する
' Author: Chief Architect
'***
Option Explicit

' --- 定数定義 ---
Const FSO_TYPE_SJIS    = "Shift_JIS"
Const FSO_TYPE_UNICODE = "UTF-16"
Const FSO_TYPE_UNKNOWN = "UNKNOWN"

' --- メイン処理 ---
Call Main()

Sub Main()
    Dim strTargetFolder, strReportPath
    Dim objFSO, objFolder, objFile
    Dim strResultReport, strCurrentLine
    
    ' 設定領域（本来は引数や設定ファイルから取得すべき）
    strTargetFolder = "C:\Work\InputData" ' 調査対象フォルダ
    strReportPath   = "C:\Work\EncodingReport.csv" ' レポート出力先

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    ' 1. フォルダ存在チェック
    If Not objFSO.FolderExists(strTargetFolder) Then
        WScript.Echo "Error: Target folder not found: " & strTargetFolder
        WScript.Quit
    End If

    ' 2. レポート用CSVのヘッダー準備
    strResultReport = "File Name,Detected Encoding,Full Path" & vbCrLf

    Set objFolder = objFSO.GetFolder(strTargetFolder)

    ' 3. ファイル走査
    For Each objFile In objFolder.Files
        ' CSVファイルのみを対象とする
        If LCase(objFSO.GetExtensionName(objFile.Name)) = "csv" Then
            
            Dim strEncoding
            strEncoding = DetectEncoding(objFile.Path)
            
            ' レポート行の構築（カンマ区切り）
            strCurrentLine = """" & objFile.Name & """,""" & strEncoding & """,""" & objFile.Path & """" & vbCrLf
            strResultReport = strResultReport & strCurrentLine
            
        End If
    Next

    ' 4. レポート書き出し (UTF-8/SJIS混在を避けるため、標準的な書き出しを行う)
    On Error Resume Next
    Dim objReportFile
    Set objReportFile = objFSO.CreateTextFile(strReportPath, True)
    If Err.Number <> 0 Then
        WScript.Echo "Error: Cannot create report file. Check permissions. " & Err.Description
    Else
        objReportFile.Write strResultReport
        objReportFile.Close
        WScript.Echo "Success: Report generated at " & strReportPath
    End If
    On Error GoTo 0

    ' 5. クリーンアップ
    Set objReportFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub

'***
' Function: DetectEncoding
' Purpose : ファイルのパスを受け取り、文字コードを判定する
'***
Function DetectEncoding(strFilePath)
    Dim objFSO, objStream
    Dim strSample, i, intNullCount
    Dim strResult
    
    strResult = FSO_TYPE_UNKNOWN
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    ' エラーハンドリング：ファイルロックやアクセス拒否への対策
    On Error Resume Next
    
    ' 戦略：まず Unicode (UTF-16) として開いてみる
    ' Format引数に -1 (TristateTrue) を指定
    Set objStream = objFSO.OpenTextFile(strFilePath, 1, False, -1)

    If Err.Number <> 0 Then
        ' ファイルが開けない場合は「アクセス不可」として扱う
        DetectEncoding = "ACCESS_DENIED"
        On Error GoTo 0
        Exit Function
    End If

    ' 最初の1024バイト（文字）をサンプルとして読み込む
    ' これにより、ファイル全体の読み込み負荷を回避し、パフォーマンスを最大化する
    strSample = objStream.Read(1024)
    objStream.Close
    
    If Err.Number <> 0 Then
        DetectEncoding = "READ_ERROR"
        On Error GoTo 0
        Exit Function
    End If
    On Error GoTo 0

    ' --- 判定ロジック ---
    ' Unicodeとして開いた際、中身がShift_JISであれば、
    ' 文字列の各所に Null文字 (Chr(0)) が頻出する。
    intNullCount = 0
    For i = 1 To Len(strSample)
        If Mid(strSample, i, 1) = Chr(0) Then
            intNullCount = intNullCount + 1
        End If
    Next

    ' Null文字が一定数以上含まれていれば、それはSJISをUnicodeとして誤読した証拠
    If intNullCount > 0 Then
        strResult = FSO_TYPE_SJIS
    Else
        strResult = FSO_TYPE_UNICODE
    End If

    DetectEncoding = strResult
    
    ' オブジェクト解放
    Set objStream = Nothing
    Set objFSO = Nothing
End Function

4. アーキテクトの視点：なぜこのコードは「強い」のか

このコードを単なるスクリプトとして片付けてはいけない。その設計の意図を理解せよ。

パフォーマンスの最適化

全ファイルをフルスキャンしてメモリに展開するのは、数GBのデータが流れてくる現場では自殺行為だ。私は `objStream.Read(1024)` を採用した。「判定に必要なのは、ファイルの冒頭数KBだけで十分である」 という判断だ。これにより、ファイルサイズに依存しない一定の実行速度を保証している。

堅牢なエラー制御

`On Error Resume Next` を `DetectEncoding` 関数の中に閉じ込めている。これにより、一つのファイルがロックされていても、スクリプト全体が停止することなく、そのファイルに対して `ACCESS_DENIED` という結果を返し、次のファイルへと処理を継続できる。これが「止まらないシステム」の基本だ。

メンテナンス性

マジックナンバー（`0` や `-1`）を直接ロジックに書かず、定数化、あるいはコメントで意図を明確にしている。また、判定ロジックを `Function` として独立させている。将来的に「UTF-8の判定も追加せよ」という無茶な要求が来ても、この関数を拡張するだけで済み、`Main` のフローを汚すことはない。

結びに

自動化ツールを作る際、多くの開発者は「正常系」のことしか考えない。しかし、真のプロフェッショナルは「異常系」を設計し、その上で「効率」を追求する。

このFSOを用いた文字コード判定手法は、そのための第一歩だ。この知見を武器に、文字化けに怯えることのない、強靭な業務システムを構築してほしい。