vb listbox如何导出到txt

Question

我有个LISTBOX如何把里面的全部数据导出到我选择的txt文件里面.我导入是这样做的,那导出应该怎样呢.
Dim d As String
CommonDialog2.Filter = "所有文件(*.*)|*.*"
CommonDialog2.ShowOpen
d = CommonDialog2.FileName
Open d For Input As #1
Do While Not EOF(1)
Line Input #1, temp
List1.AddItem temp
Loop
Close #1
以上是导入的如何才能改成全部导出,列表里面的所有.

Answer 1

追加，还是重写。
追加用 append
重写用 output
     

Answer 2

重写到一个新建的TXT里面.能具体点么?

Answer 3

Private Sub Command1_Click()
    Open "c:\temmp.txt" For Output As #1
    Dim i As Integer
    For i = 0 To List1.ListCount - 1
        Print #1, List1.List(i)
    Next
    Close #1End SubPrivate Sub Form_Load()
   Dim i As Integer
   For i = 0 To 9
       List1.AddItem "item" & i
   Next
   
End Sub

Answer 4

这个非常简单详细请www.lodna.org 获得帮助