[VB08]Leggere dati di una lista tramite file di testo

[GhostFire]

Ciao,sto provando da ormai ore a fare questa funzione,il codice non contiene errori ma solo un 'warning'.Il codice è questo:

    Private Sub LoadList(ByVal lst As ListBox, ByVal file As String)
        On Error GoTo err
        Dim a As String


        FileOpen(1, file, OpenMode.Input)
        While Not EOF(1)

            Write(1, a)

            lst.Items.Add(a)
        End While
        FileClose()
        Exit Sub
err:
        MsgBox("Error")
    End Sub

Il warning lo ho sottolineato.(Ho seguito il codice base di FetBig)

[FETBIG]

Ciao prova così: input al posto di write

Private Sub LoadList(ByVal lst As ListBox, ByVal file As String)
On Error GoTo err
Dim a As String

FileOpen(1, file, OpenMode.Input)

While Not EOF(1)
Input(1, a) 'legge dal file

lst.Items.Add(a)
End While
FileClose()
Exit Sub
err:
MsgBox("Error")
End Sub

[FETBIG]

ovviamente fileclose(1)

[GhostFire]

Grazie!Funziona a meraviglia.