[ali.alfoly]

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

كود :

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

وعليكم السلام ورحمة الله وبركاته
جزاك الله خير
هجرب وارد عليك

sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته




تفضل أخي الكريم
تستطيع الاستفادة من هذا المثال الذي يقوم بالبحث في جميع المجلدات وتستطيع أنت تحديد المجلد المطلوب أو اسم الملف الموجود

#7


بالتوفيق

جزاك الله خير
لو امكن شرح بسيط للطريقه لانى مش فاهمها