vb6中，listbox中的内容怎么存储到当前目录的TXT中，对应着一行一行的。谢谢，求代码!!

Question

如题所述

Answer 1

保存的代码：
On Error Resume Next
Dim i As Integer
Open App.Path + "\1.txt" For Output As #1 '可以把文件名更改成自己需要的文件名
For i = 0 To List1.ListCount - 1
Print #3, List1.List(i)
Next i
Close #1

顺便给个读取的代码：
Dim MyString As String
Open App.Path + "\LIST.LST" For Input As #1
Do While Not EOF(1)
DoEvents
Line Input #1, MyString
Combo1.AddItem MyString
Loop
Close #1

Answer 2

dim i

Open strFile For Input As #1
for i=0 to listbox.count-1
Line Input #1, listbox.item(i)
next
Close #1本回答被网友采纳