سؤال آخر فى التعامل مع الملفات

أختي الكريمة لا تلوميهم فلكل هنا أهل علم و معرفة قد يكون لديهم ظروف منعتهم من قراءت سؤالك

المطلوب على ما أظن:

Dim sFileName As String

sFileName = Dir$("d:\My Documents\*.rtf")

Do While Len(sFileName)
List1.AddItem sFileName
sFileName = Dir$
Loop

و شكراً

اخى الكريم

'شكرا جدا على الاجابه

'لكن اريد تكملة الكود بحيث يكتب مسار الملف بالكامل

'ويحفظه فى ملف تكست

'هذا لاغراض اجراء بعض العمليات على هذا الملف الاخير

'أخيرا لدى سؤال اخير ارجو الا اكون قد اطلت عليكم

'وهو هل يمكن تحسين الكود بحيث يتم عرض ملفات معينه كما ذكرت

'ولكن فى بارتشن معين حيث هذا البارتشن يحتوى على العديد من الفولدرز

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

بمساراتها بالكامل

واشكركم على تعاونكم المثمر ،،

إسراء