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