Code:
Public Sub LVSave(ByRef LV As ListView, ByVal File As String)
Dim s As String = ""
For I As Integer = 0 To LV.Items.Count - 1
s += LV.Items.Item(I).Text & ":"
For J As Integer = 0 To LV.Items.Item(I).SubItems().Count - 1
s += LV.Items.Item(I).SubItems(J).Text & ":"
Next
s += vbNewLine
Next
System.IO.File.WriteAllText(File, s)
End Sub
Public Sub LVLoad(ByRef LV As ListView, ByVal File As String)
Dim s() As String, t As String, u() As String
s = System.IO.File.ReadAllLines(File)
For Each t In s
u = Split(t, ":")
With LV.Items.Add(u(0), u(1))
For I As Integer = 2 To LV.Columns.Count
.SubItems.Add(u(I))
Next
End With
Next
End Sub
Das ist aber keine optimale Lösung, vor allem wegen dem Trennzeichen.
Schau dir am besten mal ein paar Beispiele zu INI/XML, typisierte Dateien und/oder Datenbanken an.