[ابو جمال]

(08-05-22, 07:32 PM)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 


للاسف اخي الكريم لم ينجح جلب فقط الصور في المجلدات الرئسية للقرص لكن ما هو بداخل المجلدت لم يتم جلبها 

بمعني عندي مجلد صور في القرص d  يجلب محتواه لكن لو كان بداحل مجلد صور مجلد اخر وليكن صور2 لا يجلب من بداخله