04-04-19, 11:34 PM
هذا الكود يجلب مسارات الملفات من نوع txt
Dim pth = "..............."
Dim fs = Directory.GetFiles(pth, "*.txt", SearchOption.AllDirectories)
For Each t As String In fs
ListBox1.Items.Add(t)
Next
Dim pth = "..............."
Dim fs = Directory.GetFiles(pth, "*.txt", SearchOption.AllDirectories)
For Each t As String In fs
ListBox1.Items.Add(t)
Next