Private Sub FinishBT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FinishBT.Click
Dim myFile As String = "\\192.168.1.199\cn3\test.txt" '// file location.
Dim myWriter As New IO.StreamWriter(myFile)
For Each myItem As ListViewItem In CountLV.Items
myWriter.WriteLine(myItem.Text & "," & myItem.SubItems(2).Text)
Next
myWriter.Close()
MsgBox("finish")
End Sub