Esportare il contenuto di un controllo ListView

[cablos]

Ciao a tutti
Devo esportare il contenuto di una list view in file txt COME FACCIO!

ho provato cn questo codice:

Private Sub Command1_Click()

Dim I As Integer

With Common
.Filter = "All Files (*.*)|*.*|Text (*.txt)|*.txt"
.CancelError = False
.ShowSave
End With

Open Common.FileName & ".txt" For Output As #1 'Crea il file

With lstContacts(1)
For I = 1 To .ListItems.Count 'Scorre la lista
Print #1, .ListItems.Item(I) ' Scrive il nome del file
Next
End With
Close #1

End Sub

ke mi crea il file .txt ma poi mi da errore "propietà o metodo non supportato dall'oggetto"
Vi prego è importante
ciao

[oregon]

In quale riga?

[cablos]

questa:

With lstContacts(1)

[oregon]

E lstContacts(1) cosa e' ?

[cablos]

la listview

[LMondi]

Ciao cablos,
posto un esempio di codice che fa uso di Write al posto di Print, dovrai adattarlo alle tue esigenze. Nell'esempio si presume che la LV sia composta da 3 Colonne: Cognome; Nome e Sesso in modalità Report.
Dopo aver caricato la LV :

Dim FileName As String
    Dim FileNum As Integer
    Dim L As ListItem

'Inserisce i dati della LV in un file di testo:
' Percorso e Nome del File:
    FileName = App.Path & "\TuoNomeFile.txt"
    FileNum = FreeFile()
    
    Open FileName For Output As #FileNum
        ' Scrive nel file il Cognome:
        For i = 1 To LvSearch.ListItems.Count
            Write #FileNum, LvSearch.ListItems(i);
        Next i
            ' Scrive nel file il Nome;
            For i = 1 To LvSearch.ListItems.Count
                Set L = LvSearch.ListItems(i)
                Write #FileNum, L.ListSubItems(1);
            Next i
                ' Scrive nel file il Sesso;
                For i = 1 To LvSearch.ListItems.Count
                    Set L = LvSearch.ListItems(i)
                    Write #FileNum, L.ListSubItems(2);
                Next i
    Close #FileNum

In questo modo il file txt avrà come separatore di ciascun componente " " e la , ed il Nome Cognome e Sesso occuperanno ciascuno una riga.
Se vuoi potrsti anche unire i due ultimi cicli:
For i = 1 To LvSearch.ListItems.Count
Set L = LvSearch.ListItems(i)
Write #FileNum, L.ListSubItems(1);
Write #FileNum, L.ListSubItems(2);
Next i
In questo caso le righe sarebbero due: Il Cognome e poi Nome e Sesso uno dopo l'altro.
Come organizzare il file ci devi pensare te.
Naturalmente per aprire il file scritto con Write #FileNum dovrai usare Input #FileNum,