バイナリファイルにデータを追加するには？

解決

バイナ 2005-01-20 19:07:50 No: 119062

バイナリファイルを作成し、編集をした後に、
追加でデータを付け加えたいのですが、追加処理時にエラーが発生してしまい追加ができません。
処理は次のようにしております。

'新規に出力ファイルを作成する。
    intFileNumber = freeFile    'ファイルの空き番号を得る
  'バイナリファイルを作成
    Open strSaveFileName For Binary Access Write As intFileNumber

’データの編集

  'バッファの内容をファイルに書き込む
    Put #intFileNumber, , bytSaveText
  'ファイルを閉じる
    Close #intFileNumber

下記のように追加モードでファイルを開き書き込み処理を行うと
「ファイルモードが不正です」とメッセージが表示され書き込みができません。
バイナリモードファイルへの追加はどのようにすればよいのでしょうか？

Open strSaveFileName For Append Access Write As #intFileNumber

バイナ 2005-01-20 19:21:24 No: 119063

また、追加処理時にもファイルの空き番号は再取得しております。

intFileNumber = FreeFile

Open strSaveFileName For Append Access Write As #intFileNumber

よろしくお願いします

バイナ 2005-01-20 19:39:06 No: 119064

追加です。
環境はVB６、Win2000です。

すみません。
追加、追加で・・・

ひろ 2005-01-20 19:44:34 No: 119065

Seek #intFileNumber, LOF(intFileNumber) + 1&

ひろ 2005-01-20 19:48:33 No: 119066

途中で送ってしまいました。

Open strSaveFileName For Binary As intFileNumber
Seek #intFileNumber, LOF(intFileNumber) + 1&

でファイルの末尾の次に書き込みするようになります

バイナ 2005-01-20 20:11:03 No: 119067

ありがとうございます。
ずっと悩んでいました。

解決しました。
感謝です！