En stacars amatör behöver hjälp...
Jag försöker att läsa innehållet i en textfil till en combobox
men jag får det inte att funka riktigt.

I txt-filen finns 3 namn
janne
kalle
pelle

i Comboboxen blir det janne||kalle||pelle||

så här har jag provat:
Dim fso As New FileSystemObject, _
fil1 As File, ts As TextStream, all As String
Set fil1 = fso.GetFile("c:\laborant.txt")
Set ts = fil1.OpenAsTextStream(ForReading)
all = ts.ReadAll
MsgBox all
ts.Close
Combo1.AddItem (all)

Hur gör man för att det ska bli vettigt i Comboboxen
Tackar på förhand
orval

Dim namn As String
Private Sub Command1_Click()
Open "c:\mapp\fil.txt" For Input As #1
While Not EOF(1)
Input #1, namn
Combo1.AddItem namn
Wend
Close #1
End Sub

Hej
En liten undring,varför skriver många så här.
Inget fel men ,mindre effektivt eftersom Not skall kollas.

While Not EOF(1)
Input #1, namn
Combo1.AddItem namn
Wend

Så här vill jag ha det.

Do Until EOF(1)
Input #1, namn
Combo1.AddItem namn
Loop

No offence
Sven

Jag har undrat vad skillnaden är i detta sammanhang. Är den enda skillnaden att NOT skall kollas?

Igen
Ett moment i onödan
While Wend är en gammal kvarleva från "urakaipa"
basic :s barndom,kan utan vidare tas bort.
DS