文字化けの迷宮を脱出せよ：VBScript `OpenTextFile` の「Tristate」を完全掌握する
ようこそ、自動化の世界へ。
マクロの記録から一歩踏み出し、「自分の手でコードを書きたい」と思った君の志、素晴らしいと思うよ。
プログラミングを始めたばかりの時に、誰もが一度はぶち当たる壁がある。それはエラーメッセージではない。「コードは完璧に動いているはずなのに、読み込んだテキストが『縐?』のような謎の記号（文字化け）になってしまう」という現象だ。
この文字化けは、プログラムの論理ミスではなく、多くの場合「データの形式（エンコード）と、プログラムの解釈のズレ」から生まれる。
今日は、VBScriptでファイルを扱う際の要（かなめ）となる `FileSystemObject`、その中でも特に初心者が躓きやすい `OpenTextFile` メソッドの Tristate（トライステート）定数 について、その本質を伝授しよう。ここをクリアすれば、君のVBScriptスキルは一段上のステージへ進むことになる。
1. そもそも `OpenTextFile` とは何者か？
VBScriptでファイル操作を行う際、我々は `FileSystemObject` (FSO) という強力な道具を使う。その中の `OpenTextFile` メソッドは、テキストファイルを開いて「読み書きするための窓口」を作る役割を担っている。
基本的な書き方はこうだ。
Set objFile = objFSO.OpenTextFile(ファイルパス, モード, 作成するかどうか, フォーマット)ここで、多くの初心者が無視してしまうのが、第4引数の 「フォーマット」 だ。
この引数に指定するものが、今回解説する Tristate（トライステート） なのだ。
2. 三つの選択肢：Tristate定数の正体
「Tristate」とは、直訳すれば「3つの状態」という意味だ。ファイルがどのような文字コードで書かれているかを、VBScriptに教えてあげるための「合図」だと思ってほしい。
以下の3つの定数を、必ずセットで覚えてしまおう。
| 定数名 | 値 | 意味（中身） | どんな時に使う？ |
|---|---|---|---|
| `TristateFalse` | 0 | ASCII (ANSI) | 一般的なテキストファイル、Shift-JIS形式など |
| `TristateTrue` | `-1` | Unicode (UTF-16) | Windows標準のUnicode形式（UTF-16） |
| `TristateUseDefault` | ` -2` | システム標準 | OSの設定に従う（※ここが落とし穴！） |
なぜ文字化けが起きるのか？
イメージしてみてほしい。
相手が「日本語（Shift-JIS）」で話しているのに、君が「英語（Unicode）」のルールで聞き取ろうとしたら、会話は成立しないだろう？
- ファイルが Unicode で保存されているのに、`TristateFalse` (ASCII) で開いた $\rightarrow$ 文字化け！
- ファイルが Shift-JIS で保存されているのに、`TristateTrue` (Unicode) で開いた $\rightarrow$ 文字化け！
これが文字化けの正体だ。
3. 【実践】文字化けを防ぐための黄金コード
では、実際にどう書くのが正解なのか。
「Unicode形式のファイル」と「通常のテキスト形式のファイル」を、正しく読み分けるサンプルコードを見てみよう。
' ==========================================================
' 題材：OpenTextFile の Tristate を使いこなす
' ==========================================================
Option Explicit
Dim objFSO, objFile, strFilePath
Dim strContent
' ファイルシステムオブジェクトの生成
Set objFSO = CreateObject("Scripting.FileSystemObject")
' --- テスト用のファイルパス設定 ---
strFilePath = objFSO.GetSpecialFolder(2) & "\test_unicode.txt" ' 一時フォルダ
' 1. 【準備】まずはUnicode形式のファイルを作成してみる
' 第4引数に TristateTrue を指定するのがポイント
Set objFile = objFSO.CreateTextFile(strFilePath, True, True)
objFile.WriteLine "こんにちは、Unicodeの世界へ！"
objFile.Close
' ----------------------------------------------------------
' 2. 【本番】作成したファイルを正しく読み込む
' ----------------------------------------------------------
WScript.Echo "--- ファイル読み込み開始 ---"
' 【重要】ファイルがUnicodeなら、必ず TristateTrue を指定する！
' ここを TristateFalse にすると、文字化けが発生するぞ。
Set objFile = objFSO.OpenTextFile(strFilePath, 1, False, -1) ' -1 は TristateTrue のこと
strContent = objFile.ReadAll
objFile.Close
WScript.Echo "読み込んだ内容: " & strContent
WScript.Echo "--- 読み込み完了 ---"
' 後片付け
Set objFile = Nothing
Set objFSO = Nothingプロの視点：コードの解説
1. `CreateTextFile(path, overwrite, unicode)`:
ファイルを新規作成する際、第3引数に `True` を渡すと Unicode ファイルとして作成される。
2. `OpenTextFile(path, mode, create, format)`:
読み込みの際、第4引数に `-1`（`TristateTrue`）を指定している。これによって、「このファイルはUnicodeだよ」とVBScriptに明確に伝えているんだ。
3. なぜ `TristateUseDefault` を使わないのか？:
「デフォルトでいいじゃん」と思うかもしれない。しかし、`UseDefault` は実行される環境（PCの設定）によって挙動が変わってしまう。「環境が変わったら動かなくなる」というのは、自動化エンジニアにとって最も避けたい事態だ。 常に明示的に指定するのがプロの流儀だよ。
4. エンジニアからのアドバイス：UTF-8という壁
最後に、一つだけ重要な警告をしておこう。
実は、VBScriptの `FileSystemObject` には致命的な弱点がある。それは、「UTF-8形式のファイルを直接扱うのが苦手」だということだ。
現在、インターネットの世界で最も普及しているのは `UTF-8` だが、FSOがサポートしている Unicode は `UTF-16` なんだ。もし君が「UTF-8のファイルを読み込もうとして文字化けした」のなら、それは `Tristate` の選択ミスではなく、FSOの仕様による限界かもしれない。
その場合は、`ADODB.Stream` という別のオブジェクトを使う必要がある。だが、それはまた別の機会に教えるよ。まずは、この `Tristate` をマスターして、Windows環境でのファイル操作を完璧にこなせるようになろう。
まとめ
- `TristateFalse` (0) $\rightarrow$ 一般的なテキスト (ASCII/ANSI)
- `TristateTrue` (-1) $\rightarrow$ Unicode (UTF-16)
- `TristateUseDefault` (-2) $\rightarrow$ 使用禁止！(環境依存で危険)
「ファイルがどんな形式か」を意識すること。これだけで、君のコードの信頼性は劇的に向上する。
さあ、恐れずにコードを書いてごらん。文字化けという霧が晴れたとき、君の自動化の翼はもっと高く羽ばたけるはずだ。応援しているよ！
