UTF-8の日本語が正しく読み取れない。 (ID:75327)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 UTF-8でコードされた日本語データが正しく読み取れません。 例えばファイルに”データ”(X'E38386E382B9E38388'）があり、次のようにコーディングすると、 flen = FileLen(filename) Open filename For Binary Access Read As #1 vtData = Input(flen, #1) Close #1 filename = filename & "_0" Open filename For Binary Access Write As #1 Put #1, , vtData Close #1 出力ファイルには、X'E383814582B9E3838145'と書き出されます。 FSO使って、 Set objText = fso.OpenTextFile(filename, ForReading) vtData = objText.ReadAll() objText.Close と書き換えても結果は同じでした。 UTF-8データを正しく読み取れる方法を教えてください。