Listbox ohne Leerzeile

TheLuCKer

Mitglied
Hallo Leute,

kann mir jemand sagen, wie ich es schaffe, dass keine einzige leerzeile entsteht, wenn ich zeilen aus einer txt datei lade. Also so ungefähr: Die Textdatei schaut so aus:

Zeile 1 aus Textdatei
Zeile 2 aus Textdatei
"Leerzeile"
Zeile 4 aus Textdatei

und meine Listbox soll so ausschauen:

Zeile 1 aus Textdatei
Zeile 2 aus Textdatei
Zeile 4 aus Textdatei

also wie man sieht, soll die Leerzeile nicht in der listbox sein. Danke im Vorraus!
Jonny
 
Code:
    Dim temp As String
    Open "Pfad zur Datei" For Input As #1
        Do While Not EOF(1)
            Line Input #1, temp
            If temp <> "" Then
                List1.AddItem temp
            End If
        Loop
    Close #1
 
Zurück