[hitman48]

اولااشكرجزيل الشكر على  مجهودك  ومتابعتك  للموضوع معي
نعم هذا  ماريد بس في تغير بسيط سوف اقوم به بعد الاطلاع على الكود الخاص بك
لاني كانت غايتي هي  عرض  الملفات مثل السكان  وليس البحث
لكني اشكرك على ذالك

فقط لو لا حظت المثال سوف تفهمني

كود :

Public Class Form1

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Timer1.Start()

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim i As New FolderBrowserDialog
       If i.ShowDialog Then
           TextBox1.Text = i.SelectedPath
       End If
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       ProgressBar1.Increment(1)
       If ProgressBar1.Value = 3 Then
           Label1.Text = "Scan Start"
       End If
       If ProgressBar1.Value = 3 Then
           Label1.Text = "C:\Users\IM\Desktop\myfolder"
       End If


       If ProgressBar1.Value = 7 Then
           Label1.Text = "C:\Users\IM\Desktop\myfolder\text.txt"
       End If

       If ProgressBar1.Value = 11 Then
           Label1.Text = "C:\Users\IM\Desktop\myfolder\kool.mp3"
       End If

       If ProgressBar1.Value = 16 Then
           Label1.Text = "C:\Users\IM\Desktop\myfolder\vol.avi"
       End If
       If ProgressBar1.Value = 100 Then
           Label1.Text = "Start complet"
       End If
   End Sub
End Class

اما هنا  ""=Label1.Text
اريد ان يعمل  القيم  اوتوماتكيا
دون ان احددها انا
اوسف على تعبك معي