リストボックスの保存2
リストボックスの全ての項目をテキストファイルに保存する方法を、先程教えて頂きスレッドを締めてしまったのですが、新たに問題が発生したのでこちらで質問させて頂きます。
先程教えて頂いた構文でリストボックスの項目をファイルに保存する事はできたのですが、追加保存されてしまい、繰り返して実行すると同じ内容のデータが増えてしまいます。追加保存ではなく全て内容を入れ替えるにはどうしたらよいでしょうか?
----------教えて頂いた構文-----------
Dim hFile As Integer
hFile = FreeFile()
'<< 書き込むファイルをオープン
Open "C:\Text.txt" For Append As #hFile
Dim nCnt As Integer
nCnt = 0
Do Until (nCnt >= List1.ListCount)
'<< 書き込み
Print #hFile, List1.List(nCnt)
nCnt = nCnt + 1 '<< カウントアップ
Loop
Close #hFile '<< ファイルクローズ
----------------ここまで--------------
これですと、リストボックスに
東京
大阪
名古屋
上のように3つの項目があるとして、上記のコマンドを複数回行うと
東京
大阪
名古屋
東京
大阪
名古屋
東京
大阪
名古屋
とデータが重複してしまいます。
これを回避する方法を教えて下さい。
お礼
さっそく回答をくださってありがとうございます。 私の携帯もSharpなので、ステーション初期化をしてみたところ、消えました。こんな風にすると消えるんですね。 とても参考になりました、ありがとうございました。