ファイルのバイナリ出力を行うときは注意が必要です。

なぜならば、For Binary　で開いたファイルは切り詰められないので 仮に100バイトのファイルが存在していたとき、20バイト上書きすると 後半の80バイトが残ってしまいます。

いったん For Output で Open して Close して０バイトに切り詰めるか
削除してから出力する必要があります。

   Sub BinaryOut(ByVal FileName As String, Buffer() As Byte)
       Dim intFno As Integer
       
       intFno = FreeFile()
       ' 0バイトに切り詰める
       Open FileName For Output As #intFno
       Close #intFno
       
       ' バイナリ出力
       Open FileName For Binary As #intFno
       Put #intFno, , Buffer
       Close #intFno
   
   End Sub

• Prev
• プログラミングテクニック