Loading text files into a listbox

[peterhinett]

I'm trying to add add text files to a listbox. I have got the directory box to come up but then when I click add it adds the whole file like

d:/ readings.txt but I want it to display all the readings within the file. This is my code so far.

[CODE=vbnet]Private Sub btnload_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles btnload.Click
openFileDialog1 .InitialDirecto ry = "d:\"
openFileDialog1 .RestoreDirecto ry = True
openFileDialog1 .Multiselect = True
If openFileDialog1 .ShowDialog() = DialogResult.OK Then
For Each iName In openFileDialog1 .FileNames
lbreading.Items .Add(iname)
Next
End If
End Sub[/CODE]

[user232k2038]

You mean you want each line in the file to be an element in the listbox? If so...

[CODE=vbnet]Private Sub btnload_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles btnload.Click

openFileDialog1 .InitialDirecto ry = "d:\"
openFileDialog1 .RestoreDirecto ry = True
openFileDialog1 .Multiselect = True
If openFileDialog1 .ShowDialog() = DialogResult.OK Then
For Each iName In openFileDialog1 .FileNames
Dim sread As New IO.StreamReader (iName), s As String() = sread.ReadToEnd ().Split(Chr(10 ))
For Each str As String In s
MsgBox(str)
Next
Next
End If
End Sub[/CODE]

[peterhinett]

That has just brought each one up in a message box. do you know how to get it so they all appear in the listbox??

You mean you want each line in the file to be an element in the listbox? If so...

[CODE=vbnet]Private Sub btnload_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles btnload.Click

openFileDialog1 .InitialDirecto ry = "d:\"
openFileDialog1 .RestoreDirecto ry = True
openFileDialog1 .Multiselect = True
If openFileDialog1 .ShowDialog() = DialogResult.OK Then
For Each iName In openFileDialog1 .FileNames
Dim sread As New IO.StreamReader (iName), s As String() = sread.ReadToEnd ().Split(Chr(10 ))
For Each str As String In s
MsgBox(str)
Next
Next
End If
End Sub[/CODE]

[Killer42]

That has just brought each one up in a message box. do you know how to get it so they all appear in the listbox??

Use the Add like in your previous message, in place of the MsgBox.