معرفة عدد الملفات الموجودة داخل مجلد

ممكن تستخدم مكتبة Scripting Runtime لهذا الغرض

من قائمة References قم بإختيار Microsoft Scripting Runtime

الكود التالى يسمح لك بالبحث عن الملفات ذات الإمتداد bmp داخل فولدر C:\Windows و يكتب الناتج فى Text1

Dim FSO As New FileSystemObject
Dim Fldr As Folder
Dim Fil As File


Set Fldr = FSO.GetFolder("C:\Windows")


For Each Fil In Fldr.Files
	If Fil.Name Like "*.bmp" Then
		Text1.Text = Text1.Text & vbNewLine & Fil.Name
	End If
Next Fil

و الله ولى التوفيق

مفيش مشكله عدل الكود السابق ليصبح كالتالى

Dim FSO As New FileSystemObject
Dim Fldr As Folder
Dim Fil As File
Dim Count as Integer


Set Fldr = FSO.GetFolder("C:\Windows")


For Each Fil In Fldr.Files
	If Fil.Name Like "*.bmp" Then
		Count=Count + 1
	End If
Next Fil

MsgBox Count

المتغير Count يحتوى الأن على عدد الملفات التى نوعها bmp

و الله ولى التوفيق

عندي سؤال

المفروض أن vbNewLine يقوم بالإنتقال إلى سطر جديد لكن هذا لم يحدث معي

فالذي خرج لي كان كما بهذه الصورة

وقد كتبت بدلا منها

Chr$(13) + Chr$(10)

لكن نفس النتيجة فما هو السبب

هذا لإن خاصية MultiLine ليست True

إستخدم VBNewLine فهى اسرع من Chr(13)

و الله ولى التوفيق

السلام عليكم

شكراً يا اخي على المعلومات ..... وزادك الله علماً ونوراً