تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تعديل كود حذف الملفات ابو جمال 2 285 29-04-22, 11:38 PM
آخر رد: ابو انس
  تعديل صورة مكان صورة محفوظة في قاعدة البيانات mustafa mohamed 2 704 26-03-22, 07:00 PM
آخر رد: mustafa mohamed
  [VB.NET] تعديل على كود بحث EMADSS 11 758 15-03-22, 08:52 AM
آخر رد: سعود
  مساعدة في تعديل صيغة التاريخ العطر الرايق 1 421 14-03-22, 05:35 AM
آخر رد: ابراهيم ايبو
Exclamation [VB.NET] رسالة خطأ عن تعديل بيانات في قاعدة بيانات عبدالكريم 1 448 11-02-22, 12:18 AM
آخر رد: اسامه الهرماوي
  استفسار بخصوص تعديل فاتورة المبيعات او المشتريات momani33 2 446 08-02-22, 06:27 PM
آخر رد: momani33
  [سؤال] رجاء اريد تعديل كود للتواصل مع قاعدة بيانات ب dao بدل oldbe mh66 0 481 05-02-22, 11:17 AM
آخر رد: mh66
  تعديل خلية فى ال Datagridview اسلام الكبابى 4 721 21-01-22, 08:54 PM
آخر رد: ابراهيم ايبو
  تعديل على مثال لتقرير report viewer محمود صالح 2 450 15-01-22, 08:57 PM
آخر رد: محمود صالح
  [سؤال] سؤال بسيط حسن الجلب 3 495 11-01-22, 01:19 AM
آخر رد: asemshahen5

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


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