listview vb 2005

首先加入一个saveFileDialog的控件。之后下面就是按钮事件了。经过测试OK的呢··有问题欢迎继续交流~~
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer
Dim FW As IO.StreamWriter
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "文本文档(*.txt)|*.txt|Excel文档(*.xls)|*.xls"
Try
If saveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK And saveFileDialog1.FileName <> "" Then
FW = New IO.StreamWriter(saveFileDialog1.FileName, False)
For i = 0 To ListView1.Items.Count - 1
FW.WriteLine(ListView1.Items(i).Text)
Next
FW.Flush()
FW.Close()
FW.Dispose()
MsgBox("保存成功！")
End If
Catch
End Try
End Sub