VB - File to list box

Wisey! · 04-19-2009, 04:28 AM

I'm having trouble making a procedure to read a text file to a list box. I was wondering if anyone could give me a hand?

Here's the crap I've got so far, I've been experimenting with different stuff, atm I get a error saying that count can't equal '1' (I also got '2' at one point =S):

Code:

    Private Sub ReadFileToList(ByVal ThisList As ListBox, ByVal YourFileName As String)
        ' gets the application's directory location
        Dim StrApplicationPath As String = Directory.GetCurrentDirectory() & "\"
        ' write some lines of text to the file
        Dim inputStream As StreamReader = File.OpenText(StrApplicationPath & YourFileName)
        Dim LineFromFile As String
        Dim count As Integer

        LineFromFile = inputStream.ReadLine()
        count = 1

        While LineFromFile <> ""
            ThisList.Items(count) = (inputStream.ReadLine())
            LineFromFile = inputStream.ReadLine()
            count = count + 1
        End While


        'For myitem As Integer = 0 To ThisList.Items.Count - 1
        'ThisList.Items(myitem) = (inputStream.ReadLine)
        'Next

        inputStream.Close()
    End Sub