get the file contents

[Pouncer]

what i want to do is for e.g., i have list.txt in my application directory so i want to loop through this file and get all the lines and put each entry into a list box, is this possible.?
anyone have any sample code, would be very much appreciated!!

[Pouncer]

i did this, but it just prints 5 zeros

i want to put the entries into the list box

Private Sub Command3_Click()
Dim fnum As Integer, one_line As String, lines As Long
    fnum = FreeFile
    Open "list.txt" For Input As #fnum
    Do While Not EOF(fnum)
        Line Input #fnum, one_line
        'need to put the entries into list box
        Debug.Print lines
    Loop
    Close fnum
End Sub

[Hack]

Try this

Private Sub Command1_Click()
Dim sData As String
Dim sFilename As String
sFilename = "c:\list.txt"
 
Open sFilename For Input As #1
While Not EOF(1)
    Line Input #1, sData
    List1.AddItem sData
Wend
Close #1
 
End Sub

[Pouncer]

ok thank you thats beautiful, is it also possible to now debug.print the number of entries in the list box?

[Hack]

ok thank you thats beautiful, is it also possible to now debug.print the number of entries in the list box?

Debug.Print List1.ListCount

[Pouncer]

ok thank you very much Hack, now is it possible to debug.print for e.g. the 2nd entry in the list box? or 3rd etc

[Static]

each list entry has an index (starting at zero)

Debug.Print List1.List(0) '1st item
Debug.Print List1.List(1) '2nd
Debug.Print List1.List(2) '3rd and so on

[Hack]

ok thank you very much Hack, now is it possible to debug.print for e.g. the 2nd entry in the list box? or 3rd etc

Debug.Print List1.List(2)