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

解決

バイナ 2005-01-20 10:07:50 No: 119062 IP: [192.*.*.*]

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

'新規に出力ファイルを作成する。
    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 10:21:24 No: 119063 IP: [192.*.*.*]

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

intFileNumber = FreeFile

Open strSaveFileName For Append Access Write As #intFileNumber

よろしくお願いします

編集削除

バイナ 2005-01-20 10:39:06 No: 119064 IP: [192.*.*.*]

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

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

編集削除

ひろ 2005-01-20 10:44:34 No: 119065 IP: [192.*.*.*]

Seek #intFileNumber, LOF(intFileNumber) + 1&

編集削除

ひろ 2005-01-20 10:48:33 No: 119066 IP: [192.*.*.*]

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

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

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

編集削除

バイナ 2005-01-20 11:11:03 No: 119067 IP: [192.*.*.*]

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

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

編集削除