[ابو جمال]

بعد البحث تم حل المشلكة وهذا هو الكود المعدل  للفائدة

كود :

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