🚀 go-pugleaf

Sempre riguardo al mio programma per ascoltare mp3..
C'� una listbox che contiene i titoli e un bottone "Salva playlist" che
salva su file l'elenco con questo codice:

Private Sub salva_Click()
    With cdialog 'Apri cdialog per salvare
        .Filter = "File playlist | *.pli"
        .Flags = cdlOFNPathMustExist Or cdlOFNExplorer
        .FileName = "Playlist"
        .ShowSave
    End With
        nomesv = cdialog.FileName
Open nomesv For Append As #1
posiz = elenco.ListIndex
elenco.ListIndex = -1
Print #1, "Un po di avvertenze per chi edita il file"
Print #1, Str(elenco.ListCount) 'Numero titoli
For X = 0 To elenco.ListCount - 1
    elenco.ListIndex = elenco.ListIndex + 1
    Print #1, elenco.Text
Next
Close #1
elenco.ListIndex = posiz
End Sub

Funziona tutto perfettamente, per� il computer rimane bloccato fino a che
non ha finito di scorrere tutte le voci dell'elenco, che possono essere da 1
a 10000. Questo � un problema quando le canzoni in elenco sono tante perch�
non tutti hanno un 2 ghz con 512 mb di ram (neanke io :-)
come posso fare a creare una funzione di salvataggio pi� veloce?

Ciao, Devaraja