[Eng27]

السلام عليكم
بإمكانك استخدام التابع
Dir$
أما بالنسبة للبحث بحسب الحجم فاستخدم FileLen، وبالنسبة لتاريخ الإنشاء استخدم FileDateTime في الكود
الدالتان الاخيرتان ضعهما في بنية شرط عند البحث..
وستحل المشكلة بإذن الله..

---

لاحظ المثال
أضف زر وتكست وليست
اكتب الكود في الزر
Dim sPath as String
sPath = "D:\Test\" & Text1.Text & ".txt"
if Dir$(sPath, VbDirectory)  <> " " Then
List1.Additem sPath 
End if
.
طور الكود بما يتناسب مع برامجك..