Un metodo per scrivere il contenuto di una listview in un file potrebbe essere questo:

codice:
    Dim Rec As String * 52
    LenRec = 52
    Open Trim("C:\pio.txt") For Random As #2 Len = LenRec
    For i = 0 To List1.ListCount - 1
            NumRec = Fix(LOF(2) / LenRec)
            Rec = Space(LenRec)
            Rec = Mid(List1.List(i), 1, 50)
            Mid(Rec, 51, 1) = Chr(13)
            Mid(Rec, 52, 1) = Chr(10)
            Put #2, NumRec + 1, Rec
    Next i
    Close #2

Ciao