[ابو جمال]

السلام عليكم ورحمة الله 

الرجاء المساعدة في تعديل كود البحث عن ملفات معينة مثلا الصور بالجهاز 

هذا الكود يعمل بشكل جيد لكن لا يبحث في المجلدات الفرعية  هل ممكن تعديله ليحث في المجلدات الرئسية والفرعية 

PHP كود :

  Public Sub DirSearch(ByVal sDir As String)
        Dim fl As String
        Try
            For Each dir As String In Directory.GetDirectories(sDir)
                Try
                    For Each fl In Directory.GetFiles(dir, "*.jpg")
                        ListBox1.Items.Add(fl)
                    Next
                Catch ex As Exception
                    Continue For
                End Try
            Next
        Catch ex As Exception
            ' MessageBox.Show(ex.Message)
        End Try
    End Sub 


مع ملاحظة وضع محركات الاقراص في الفورم لود او مكان بدء البحث 

PHP كود :

DirSearch("c:\")
        DirSearch("d:\")
        DirSearch("e:\")