[asmarsou]

(08-05-22, 05:48 PM)ابو جمال كتب :

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

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

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

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:\") 


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

PHP كود :

Public Sub DirSearch(ByVal sDir As String)
        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
    End Sub