リストボックスの保存

質問

■VB6.0

リストボックスの全ての項目をテキストファイルに保存する方法を教えて下さい。

色々試してみたのですが出来ませんでした;;
よろしくお願い致します。

回答No.1

_tomo_ · ベストアンサー

間違っていたらすいません。

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 '<< ファイルクローズ

どうでしょう？

お礼

早速のご返答ありがとうございます。

教えて頂いた構文で思い通りにできました。
どうもありがとうございました。！！