[dasktop]

(30-10-18, 01:42 PM)elgokr كتب :

القى نظرة على هذا الرابط 

https://social.msdn.microsoft.com/Forums...=vbgeneral

ستجد به الكود لـ Sub التالى

كود :

Private Sub Search_Exe(ByVal StartDir As String)
   Dim Dirs As IEnumerable(Of String) = Nothing
   Try
       Dim files() As String
       Dirs = IO.Directory.EnumerateDirectories(StartDir)
       files = IO.Directory.EnumerateFiles(StartDir) _
           .Where(Function(CurrentFile As String)
                      Dim Extention = IO.Path.GetExtension(CurrentFile)
                      If Extention.ToLower = ".exe" Then
                          Return True
                      Else
                          Return False
                      End If
                  End Function).ToArray
       ListBox1.Items.AddRange(files)
   Catch ex As Exception
       'Just Skip the denied access dirs
   End Try
   ' kevininstructor added check for Nothing
   If Dirs IsNot Nothing Then
       For Each Dir As String In Dirs
           Search_Exe(Dir)
       Next
   Else
       ' Access denied thrown in Catch above
   End If
End Sub

وعند تطبيق الامر فقط سيكون بهذا الشكل

كود :

Search_Exe("C:\")

بدلاً من 

PHP كود :

C:\ 


يمكنك وضع اى مسار اذا كان مجلد وتحتوى على عديد من المجلدات الداخلية

فسيقوم بالبداء بالبحث بهذا المجلد وما بداخل المجلدات التى بداخل هذا المسار فقط

اتمنى ان يكون الكود بسيط لك

وان يكون هذا ما تريده تماماً

تحياتى لك

وتمنياتى لك التوفيق

ضهر الخطا التالي