Listbox

[Hutty]

How can I populate a listbox with data from a text file? OR How can populate a listbox with multiple columns of data? I want to reference the index of the listbox items.
I thought the syntax List1.additem "c:\list1.txt" would work, but it didn't.

Thanks!

[Aaron Young]

Try something like:

Private Sub Form_Load()
Dim iFile As Integer
Dim sData As String

iFile = FreeFile
Open "C:\List1.txt" For Input As iFile
sData = Input(LOF(iFile), iFile)
Close iFile
While Len(sData)
If InStr(sData, vbCrLf) Then
List1.AddItem Left$(sData, InStr(sData, vbCrLf) - 1)
sData = Mid$(sData, InStr(sData, vbCrLf) + 2)
Else
List1.AddItem sData
sData = ""
End If
Wend
End Sub


------------------
Aaron Young
Analyst Programmer
aarony@redwingsoftware.com
ajyoung@pressenter.com