VBScript Unicodeテキスト読み書き

質問

VBScriptで存在するUnicodeテキストファイルを開き、別途、Unicodeテキストファイルを作成し、存在する方のテキストファイルから１行ずつ読み込んで、作成したテキストファイルに、そのまま書き込むだけのプログラムを組みました。

それなのに、新たに出来たテキストファイルは文字化けしてしまっています。

どうすればいいのでしょうか？

Option Explicit
Dim a, w, x, y, z
Set w = CreateObject("Scripting.FileSystemObject")
Set x = w.GetFolder(".")
Set y = w.OpenTextFile(x & "\Test.txt", 1, True)
Set z = w.CreateTextFile(x & "\Result.txt", True, True)
Do Until y.AtEndOfLine = True
a = y.ReadLine
z.WriteLine(a)
Loop
z.Close
y.Close
Set z = Nothing
Set y = Nothing
Set x = Nothing
Set w = Nothing
MsgBox("Finished!")

元々存在するテキストファイルは、テキストエディタで開いて、間違いなく文字コードが「Unicode」であることは確認していますし、新たに作成されたテキストファイルも、エディタで開くと、文字コードが「Unicode」である旨、表示されています。

元々存在するファイルの中に、「Unicode」文字がたくさん含まれていますので、どうしても、「Unicode」で処理しなければなりません。

もちろん、プログラムは、本当はもっと他のことをするために作るのですが、最初のこの部分でつまづいてしまっています。

お分かりになる方、お教えください。

回答No.1

noname#212058 · ベストアンサー

OpenTextFile メソッドで、ファイルを shift-jis として開いているからです。

OpenTextFile メソッドは第4引数に「ファイルをどの形式として読み込むか」を指定します。省略した場合は shift-jis が指定されたとみなしてそれで読み込む仕様です。
https://msdn.microsoft.com/ja-jp/library/cc428044.aspx

なので、w.OpenTextFile(x & "\Test.txt", 1, True, -1) とすればきちんと読み込めるかと思います。

お礼

さっそく、ありがとうございました！

私、２番目のパラメータが「Unicode」の指定だと、思い込んでいました。

申し訳ございません。

助かりました。