リストボックスの保存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つの項目があるとして、上記のコマンドを複数回行うと

東京
大阪
名古屋
東京
大阪
名古屋
東京
大阪
名古屋

とデータが重複してしまいます。

これを回避する方法を教えて下さい。

回答No.2

imogasi

＞For Append
は今あるファイルのレコードはそのままにして、その後にレコードを追加していくＯＰＥＮステートメントの一部（アクセス方法指定という）です。ですから質問のようになります。
Ａｐｐｅｎｄは「付加する」の意味。Ａｐｐｅｎｄｉｘ付録、付加物。ａ（ｐ）＋ｐｅｎｄ（ぶら下がる、ペンダント、振り子Ｐｅｎｄｕｌｕｍなどと同根？）
同じ（指定した）ファイルの最初から、前のレコード内容を無視して、初めから上書きして書き出していく（前のはきえる）のは、ＦＯＲ　ＯＵＴＰＵＴです。
回答に見慣れない語句がある場合、ＷＥＢ照会などして、調べる習慣をつけてください。実行して結果ＯＫだけでなく。
回答を実行もしないで、「やってみます、ありがとう」で締め切っている質問者も多いが。
ついでに、ＦｒｅｅＦｉｌｅなども調べましたか。

回答No.1

kokorone

ＶＢのリファレンスは、お持ちじゃないですか？
質問する前に、調べる習慣をつけてください。
For Append を　For output にしてください。

参考URL：

http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/vb_k04.htm