ListView: сохранение / чтение из файла - Visual Basic .NET - Ответ 7139106

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    lvOpen("C:\01\01\aa.txt", ListView1.Items)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    lvSave("C:\01\01\aa.txt", ListView1.Items)
End Sub
Private Sub lvSave(ByVal pth As String, ByVal vv As ListViewItemCollection)
    Dim ss(vv.Count - 1) As String
    Dim it As ListViewItem
    For i = 0 To vv.Count - 1
        it = vv.Item(i)
        ss(i) = it.Text & "," & it.SubItems(0).Text & "," & it.SubItems(1).Text
    Next
    IO.File.WriteAllLines(pth, ss)
End Sub
Private Sub lvOpen(ByVal pth As String, ByVal vv As ListViewItemCollection)
    Dim ss() As String = IO.File.ReadAllLines(pth)
    Dim s() As String
    Dim it As ListViewItem
    vv.Clear()
    For i = 0 To ss.Count - 1
        s = ss(i).Split(","c)
        it = New ListViewItem(s(0))
        it.SubItems.Add(s(1))
        it.SubItems.Add(s(2))
        vv.Add(it)
    Next
End Sub