[محمد اسماعيل]

السلام عليكم

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

احد الملفات بالمرفقات

اريد تصدير كل ملف من مجموعة الملفات الي الداتا جريد فيو بحيث ياخذ صف بالداتا جريد مع اعتبار ان اول عمود ياخذ اسم الملف

انا حاولت مع ملف واحد بالكود التالي وظبط معايا مع عدم المقدرة علي وضع اسم الملف بالعمود الاول بالداتا جريد  فكيف اقوم بهذا مع مجموعة ملفات

كود :

Try
           Dim fname As String = "D:\file.txt"
           Dim fileContents = IO.File.ReadAllLines(fname).ToList
           For i = fileContents.Count - 1 To 0 Step -1
               If fileContents(i).Contains("--------") Then
                   fileContents.RemoveAt(i)
                   i -= 1
               End If
           Next
           IO.File.WriteAllLines(fname, fileContents.ToArray)
           Dim sw = System.Diagnostics.Stopwatch.StartNew()
           Using stream As System.IO.FileStream = System.IO.File.OpenRead(fname)
               Using reader As New System.IO.StreamReader(stream)
                   Dim line As String = reader.ReadLine()
                   While (line IsNot Nothing)
                       Dim columns = line.Split("|")
                       line = reader.ReadLine()
                       Dim index = Me.DataGridView1.Rows.Add()
                       Me.DataGridView1.Rows(index).SetValues(columns)
                   End While

               End Using
           End Using
           sw.Stop()
           DataGridView1.Refresh()
       Catch ex As Exception

       End Try