タイトル : APPENDモードのファイル出力 投稿日 : 2011/06/14(Tue) 09:23 投稿者 : ちーさん
OS:Windows XP VB:VB6.0 VB暦:1ヶ月未満です。 CSVファイルに、 ・1行目は格納されている行件数を固定行として出力 ・2行目以降はデータ行 を出力させたいのですが、1行目の行件数は上書きできても、APPENDモードWRITEしたデータ行は上書きになってしまいます。 1つのファイルに、上書きと末尾追加の両方をさせるには、どうしたらよいのでしょうか? どなたか教えてください。 下は作成してみたコードです。意図が伝わるかどうかわかりませんが、一部日本語に書き換えてあります。 '行件数の読み込み filenum = FreeFile Open DataFile For Input As #filenum Input #filenum, 行件数 Close #filenum '行件数加算 & 上書き更新 行件数 = 行件数 + 1 filenum = FreeFile Open DataFile For Output As #filenum Write #filenum, 行件数 Close #filenum 'データ行追記 filenum = FreeFile Open DataFile For Append As #filenum Write #filenum, データ項目1, _ データ項目2 Close #filenum |