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