Function detailwriter()
 
       Function detailreader()
 
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader( _
          "details.txt")
        Do
            Dim x As New ListViewItem
            x.Text = sr.ReadLine
            If x.Text = "" Then
                sr.Close()
                Exit Function
            Else
                x.SubItems.Add(sr.ReadLine)
                x.SubItems.Add(sr.ReadLine)
                x.SubItems.Add(sr.ReadLine)
                ListView1.Items.Add(x)
            End If
        Loop
 
    End Function

 Function detailwriter()
 
        Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter( _
          "details.txt")
 
        Do
            Dim X As New ListViewItem
            X.Text = ListView1.Text
            If X.Text = "" Then
                sw.Close()
                Exit Do
            Else
                sw.WriteLine(X.Text)
                sw.WriteLine(X.SubItems)
                sw.WriteLine(X.SubItems)
                sw.WriteLine(X.SubItems)
            End If
        Loop
 
    End Function

greetz

Steffen