Text Datei in Listbox einlesen (Split)

1
2
3
4
5
6
7
8
9

    Private Sub listboxload(ByVal Path As String, ByVal SplitChar As String)
        Try
            For Each Text As String In IO.File.ReadAllText(Path).Split(SplitChar)
                ListBox1.Items.Add(Text)
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), "Error")
        End Try
    End Sub