البحث عن اي ملف

الأخوة الأعضاء ,

السلام عليكم

استخدم الكود التالي في البحث عن اي ملف على الجهاز

With Application.FileSearch

.NewSearch

.LookIn = ("C:\test2")

.FileName = "*.doc"

If .Execute > 0 Then

MsgBox "There were " & .foundfiles.Count & _

" file(s) found."

For i = 1 To .foundfiles.Count

MsgBox .foundfiles(i)

Next i

Else

MsgBox "There were no files found."

End If

End With

ولكن المشكلة هي التنفيذ الصحيح فالبرنامج يعطي نتائج صحييحة في اول مرة ثم يظهر نفس النتائج عن الاستخدام مرة اخرى حتى لو غيرت الملفات في المجلد الذي ابحث فية.

نرجوا الافادة مع الشكر