Dim a As String Private Sub Form_Load() Open "C:\a.txt" For Input As #1 While EOF(1) = 0 Line Input #1, a b = b + a Wend Close #1 MsgBox b List1.AddItem b MsgBox List1.ListCount + 0 End Sub
All the links are one item in listbox.I don't know how many link I'm going to use so I don't make a lot of variables like that
Dim a As String Dim d As String Dim c As String Private Sub Form_Load() Open "C:\a.txt" For Input As #1 Line Input #1, a Line Input #1, d Line Input #1, c Close #1 List1.AddItem a List1.AddItem d List1.AddItem c MsgBox List1.ListCount + 0 End Sub
I need help.What should I do?

New Topic/Question
Reply



MultiQuote




|