Question

vb中如何导出list中的内容

如何实现点击“导出”按钮，弹出对话框，让用户选择保存路径导出list1中所有内容到txt。请说明详细控件（应该会有commondialog吧）和代码。如果能介绍一下如何导出listview1指定分类或全部就更好了。

Answer 1

Private Sub Command1_Click()
s = InputBox("请输入保存目录，如:F;\")
On Error GoTo line1
Open s + "1.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next i
Close #1
Exit Sub
line1:
MsgBox ("目录输入错误!")
End Sub

Answer 2

Private Sub Command2_Click() '保存 Dim i As Integer Open "c:\b.txt" For Output As #1 For i = 0 To List1.ListCount Print #1, List1.List(i) Next Close #1 End Sub