[elgokr]

(01-11-18, 11:07 AM)dasktop كتب : المشكلة الاولى انحلت ولاكن ضهر خطا واحد حاولت احله لم ينتهي

بخصوص الخطاء هنا يرجع لاصدار لديك

لا يقبل الاستكمال الاسطر من خلال _

كل الامر ستاتى عند هذه الاسطر

كود :

      files = IO.Directory.EnumerateFiles(StartDir) _
          .Where(Function(CurrentFile As String)

واجعلها بهذا الشكل

كود :

      files = IO.Directory.EnumerateFiles(StartDir).Where(Function(CurrentFile As String)

وستتم حل المشكلة

ليصبح الشكل النهائي للكود

كود :

   Private Sub Search_Exe(ByVal StartDir As String)
       Dim Dirs As IEnumerable(Of String) = Nothing
       Try
           Dim files() As String
           Dirs = IO.Directory.EnumerateDirectories(StartDir)
           files = IO.Directory.EnumerateFiles(StartDir).Where(Function(CurrentFile As String)
                                                                   Dim Extention = IO.Path.GetExtension(CurrentFile)
                                                                   If Extention.ToLower = ".exe" Then
                                                                       Return True
                                                                   Else
                                                                       Return False
                                                                   End If
                                                               End Function).ToArray
           ListBox1.Items.AddRange(files)
       Catch ex As Exception
           'Just Skip the denied access dirs
       End Try
       ' kevininstructor added check for Nothing
       If Dirs IsNot Nothing Then
           For Each Dir As String In Dirs
               Search_Exe(Dir)
           Next
       Else
           ' Access denied thrown in Catch above
       End If
   End Sub

تحياتى لك

وتمنياتى لك التوفيق