خب پس کد داخل دکمه Command1 رو بین این حلقه بنویس:
For i = 0 To List2.ListCount - 1
List1.AddItem "***" & List2.List(i) & "start scan : *** "
FindFile List2.List(i), txtExt
Next
البته خودم امتحانش نکردم. اگه جواب نداد بگو
خب پس کد داخل دکمه Command1 رو بین این حلقه بنویس:
For i = 0 To List2.ListCount - 1
List1.AddItem "***" & List2.List(i) & "start scan : *** "
FindFile List2.List(i), txtExt
Next
البته خودم امتحانش نکردم. اگه جواب نداد بگو
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول