[DK-x]

مرحبا
محتاج كود يوقف البرامج الي بالتمب
جربت هذا الكود حتى اسحب الملفات الي بامتداد exe داخل ليست بوكس بس ما اشتغل

كود :

Dim pth = "..............."
Dim drs = Directory.GetDirectories(pth, "*.*", SearchOption.AllDirectories)
For Each d As String In drs
    If Directory.GetFiles(d, "*.txt").Count > 0 Then
        ListBox1.Items.Add(d)
    End If
Next