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

名前

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

本文 質問ばかりで申し訳御座いません。。 バイナリデータを含むファイル入出力についての質問です。 過去ログが充実しているとは思いますが宜しくお願い致します。 以下バイナリーコードのデータファイルを入力及び出力するにあたり、 うまく処理結果を得る事が出来ません。 FC 10 C8 0C 04 00 00 00 00 00 00 00 00 00 44 45 52 45 51 46 31 34 00 00 00 00 00 （省略） 過去ログより、バイト配列を使用してバイナリーデータを取得するところ まではわかっております。また、コードをお借りして 以下現在のコードと出力結果を記載させて頂きます。 Private Buff() As Byte Private FileSize As Long Private intFileNo As Integer Private Const InputFile As String = "C:\Test\InFile.log" Private Const OutputFile As String = "C:\Test\OutFile.log" Private Sub Command1_Click() ' バイト配列として入力 intFileNo = FreeFile Open InputFile For Binary As intFileNo FileSize = LOF(intFileNo) ReDim Preserve Buff(FileSize - 1) As Byte 'メモリー再確保 Buff() = InputB(FileSize, intFileNo) Close intFileNo ' バイト配列を出力 intFileNo = FreeFile Open OutputFile For Output Access Write As #intFileNo Print #intFileNo, Buff() 'ファイルを閉じる Close #intFileNo End Sub 出力結果 3F 3F 04 00 00 00 00 3F 3F 3F 3F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 81 40 3F 0D 0A 入力データと出力データで差異をなくすにはどのようなコーディングが必要 なのでしょうか。。 イミディエイトウィンドウにてバイナリデータ入力処理後のBuffを確認しま したところ、入力の時点でうまくバイト配列に格納出来ていませんでした。 何か足りないコードがある等、ご教授頂きたくお願い申し上げます。 環境はVB6.0のWindowsXPです。