バイナリデータのファイル入出力について (ID:123103)

名前

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

本文 ひろ様 ご回答有難う御座います。m(__)m 出力をBinaryModeにする事によって解決致しました。 イミディエイトウィンドウで私が確認していたものは違う文字コードだった のですね。 以下コードを記載し、解決とさせて頂きます。 Private Sub Command1_Click() ' バイト配列として入力 intFileNo = FreeFile Open InputFile For Binary As intFileNo FileSize = LOF(intFileNo) ReDim Preserve Buff(FileSize) As Byte 'メモリー再確保 Buff() = InputB(FileSize, intFileNo) Close intFileNo ' バイト配列を出力 intFileNo = FreeFile Open OutputFile For Binary Access Write As #intFileNo Put #intFileNo, , Buff Close #intFileNo End Sub ひろ様有難う御座いました。