VB LIST 输出

来源：百度知道 编辑：UC知道 时间：2024/07/16 21:55:57
把list里面的数据保存到c:\1.txt内

list内有好很多行
保存到txt内也要分行 就像list内的一摸一样

Dim i As Long, Temp As String
For i = 0 To List1.ListCount - 1
If Temp = "" Then
Temp = List1.List(i)
Else
Temp = Temp & vbNewLine & List1.List(i)
End If
Next i
Open "c:\1.txt"For Output As #1
Print #1, List1.ListCount & vbNewLine & Temp
Close #1

Open "c:\1.txt" For Output As #1
For i = 1 To List1.ListCount
Print #1, List1.List(i - 1)
Next
Close #1