[trakktour]

السلام عليكم احبابي في الله
ممكن مساعدة في اصلاح هذا الخطأ

كود :

Private Sub Read_trak()



       Try
           Dim rdr As New StringReader(TextBox1.Text)

           Dim lines As String = rdr.ReadLine()

           'Dim Lines As String() = IO.File.ReadAllLines(TextBox1.Text)
           Dim row(1) As String
           For Each line As String In Lines
               If line.Trim.StartsWith("#EXTINF") Then
                   row(0) = line.Split(",")(1)

               ElseIf line.Trim.StartsWith("http://") Then
                   row(1) = line.Trim
                   originalItems.Add(New ListViewItem(row))
               End If
           Next
           Me.ListView1.Items.AddRange(originalItems.ToArray)
       Catch ex As Exception

       End Try

   End Sub

انا كنت استعمل الكود لقرائة ملف خارجي 

كود :

Dim Lines As String() = IO.File.ReadAllLines("Playlist\trak.m3u")

الان اريده القراءة من textbox