Unicode文字をバイナリでファイル入出力するには？ (ID:85545)

名前

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

本文 For Binaryで出力しているなら、化けるとは思えませんが…。 少なくとも当方では、下記のコードで UTF-16 な『謝』を出力できました。 Dim FNo As Integer Dim fPath As String Dim rData() As Byte FNo = FreeFile() fPath = "C:\Data.dat" rData = ChrW(&H8C22) Open fPath For Binary Access Write As #FNo Put #FNo, , rData Close #FNo