Unicode文字の入ったファイル名でバイナリファイルを作るには？

解決

ウィング 2006-06-09 02:33:54 No: 95684

開発環境
OS:WindowsXP SP2
言語:VB6SP6

Unicode文字がファイル名に含まれるバイナリファイルを作成したいのですが
Openステートメントでファイル名にUnicode文字が入っていると
例外エラーになります。
(Unicode文字：中国語/タイ語等)

何かよい方法がありましたら、教えてください。

よろしくお願いします。

魔界の仮面弁士 2006-06-09 06:16:01 No: 95685

Streamオブジェクトを使ってみるとか。

----------------
Dim FileName As String
FileName = "C:\" & ChrW(&H4F60) & ChrW(&H597D) & ".txt"

Dim Stm As ADODB.Stream
Set Stm = New ADODB.Stream
Stm.Type = adTypeBinary
Stm.Open

Stm.Write bin

Stm.SaveToFile FileName, adSaveCreateOverWrite
Stm.Close

ウィング 2006-06-10 01:30:10 No: 95686

回答ありがとうございます。

魔界の仮面弁士さんの言われるとおりやってみたところうまくいきました。

>Stm.Write bin
この部分でエラーが出たので、リファレンスを参照して修正してやりました。

StreamオブジェクトだとOPENステートメントを使用したときみたいに、
構造体での書き込み読込はできないのですね。

API関連で調べていったら、CreateFileというものが見つかりましたので
そちらを使用してやることにしました。

ありがとうございました。