[Visual basic 6] Salvare/caricare un file di testo

[Furla]

dunque, io ho una listbox i cui items vanno salvati in un file di testo uno dopo l'altro, separati da un carattere qualsiasi (tipo / o &) che mi serve poi a ridividerli nel caricamento, che deve avvenire in modo inverso, ovvero separando appunto gli elementi contenuti nel file di testo sfruttando il carattere separatore (mid left e right mi bastano allo scopo) e mettendoli uno per uno nella listbox...

ma non ho la minima idea di come fare, ho cercato su internet ed ho trovato solo che mi serve un oggetto chiamato commondialog, ma non so come scrivere il codice...

grazie

[beee]

Scrivere su file

Dim a As Long, riga As String
Open "c:\temp.txt" For Output As #1
For a = 0 To List1.ListCount
    riga = riga & "|" & List1.List(a)
Next a
Print #1, riga
Close #1

per leggere e mettere su listbox

Dim a As Long, riga As String, arr() As String
Open "c:\temp.txt" For Input As #1
Line Input #1, riga
Close #1
arr = Split(riga, "|")
For a = 1 To UBound(arr)
    List1.AddItem (arr(a))
Next a

Bye!

[Furla]

mille grazie!

e se io volessi che quel file di testo fosse nella stessa directory dell'exe compilato? è fattibile?

[beee]

Originariamente inviato da Furla

mille grazie!

e se io volessi che quel file di testo fosse nella stessa directory dell'exe compilato? è fattibile?

Si, il nome del file e il percorso lo crei cosi:

Nomefile=App.Path & "\" & "temp.txt"

e lo sostituisci a "c:\temp.txt". Chiaramente Nomefile, essendo una variabile, non va tra i doppi apici.
Bye!

[Furla]

ok thx a lot again!