How to open a saved listbox?

[DrLector]

Hi
I'm making an adressbook.I fill in lastname, firstname, city & phonenumber, each in a textbox. By clicking on a Comm.Button everything goes into a listbox (items sorted on lastname). To SAVE everything I use next code:

Dim intT As Integer
Dim F As Integer
Dim strLijst As String
On Error Resume Next
F = FreeFile
Open "Filename.extension" For Output As #F
Print
For intT = 1 To List1.ListCount
Print #F, List1.List(intT - 1)
Next intT
Close #F
End If
Does anyone have the code to OPEN the listbox? THX

[jdc6029]

http://www.vbforums.com/showthread.p...hreadid=230611

[peet]

Private Sub Command1_Click()
    Dim s As String
    List1.Clear
    Open "C:\TEST.TXT" For Input As #1
    Do While Not EOF(1)
        Line Input #1, s
        List1.AddItem s
    Loop
    Close #1
End Sub

[DrLector]

Code is working well...thanks a lot.