تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تعديل كود بسيط للبحث عن ملفات
#1
السلام عليكم ورحمة الله 

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

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

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:\") 
الرد }}}
تم الشكر بواسطة:
#2
(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 
الرد }}}
تم الشكر بواسطة: ابو جمال
#3
(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 لا يجلب من بداخله
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim AllFiles As New List(Of String)
       Dim StartFolder As String = ""
       Dim fbd As New FolderBrowserDialog()
       If fbd.ShowDialog() = Windows.Forms.DialogResult.OK Then
           StartFolder = fbd.SelectedPath
       End If
       If IO.Directory.Exists(StartFolder) Then
           AllFiles.AddRange(My.Computer.FileSystem.GetFiles(StartFolder, FileIO.SearchOption.SearchAllSubDirectories))
           For Each fil As String In AllFiles
               If fil.EndsWith(".jpg") Or fil.EndsWith(".png") Then
                   ListBox1.Items.Add(fil)
               End If
           Next
       End If
   End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asmarsou
#5
(09-05-22, 09:06 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim AllFiles As New List(Of String)
       Dim StartFolder As String = ""
       Dim fbd As New FolderBrowserDialog()
       If fbd.ShowDialog() = Windows.Forms.DialogResult.OK Then
           StartFolder = fbd.SelectedPath
       End If
       If IO.Directory.Exists(StartFolder) Then
           AllFiles.AddRange(My.Computer.FileSystem.GetFiles(StartFolder, FileIO.SearchOption.SearchAllSubDirectories))
           For Each fil As String In AllFiles
               If fil.EndsWith(".jpg") Or fil.EndsWith(".png") Then
                   ListBox1.Items.Add(fil)
               End If
           Next
       End If
   End Sub


للاسف لم يعمل معي يقفل البرنامج لوحده عند اختيار قرص كامل
الرد }}}
تم الشكر بواسطة:
#6
بعد البحث تم حل المشلكة وهذا هو الكود المعدل  للفائدة


كود :
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", SearchOption.AllDirectories)
                       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
الرد }}}
تم الشكر بواسطة: asmarsou , waelalmsry75 , waelalmsry75 , menanaeem , menanaeem



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم