Ciao,

ho un problema nel caricare una listbox leggendo i dati inseriti in un file:

ho dichiarato in un modulo questo tipo di dato:

Public Type Dati
Nome As String * 50
Età As Integer
End Type

Dim Corrente As Dati

Per caricare il file avevo pensato a questo codice(avviene al click di un pulsante):

Indice = LOF(NFile) / Len(Corrente) + 1
Put NFile, Indice, Corrente

I dati da mettere in Nome ed Età sono inseriti in 2 textbox.

Il problema è che quando cerco di caricare i dati in una listbox viene inserita anche una riga bianca che non centra niente (in fondo se non lo ordino (tramite la proprietà "sort), all'inizio se imposto la proprietà "sort" a true), il codice che ho usato per caricare la listbox è il seguente:

Open App.Path & "\DatiPersona.dat" For Random As NFile Len = Len(Corrente)

Do While Not EOF(NFile)
Get NFile, , Corrente
list1.AddItem Corrente.Nome
Loop

Non so proprio come riuscire a non far caricare quella riga bianca...

Ringrazio anticipatamente per l'aiuto...ciao