[سعود]

مدري الكود هذا مضبوط او لا بيشتغل معي فترة ثم يوقف

كود :

Sub DirSearch(ByVal sDir As String)

        Dim d As String
        Dim f As String


        ' Try
        On Error Resume Next
        For Each d In Directory.GetDirectories(sDir)
            For Each f In Directory.GetFiles(d, txtFile.Text)
                Label2.Text = f
                lstFilesFound.Items.Add(f)
            Next
            DirSearch(d)
        Next
        ' Catch excpt As System.Exception
        ' Debug.WriteLine(excpt.Message)
        'MsgBox(excpt.Message)
        'End Try
    End Sub