كيف يمكن معرفة عدد الملفات في مجلد معين

لم توضح ما إذا كنت تريد حساب المجلدات الفرعية إلى جانب الملفات، أيضا لم توضح هل تريد حساب عدد الملفات داخل المجلدات الفرعية وإلى أي عمق .. ستحتاج لاستخدام مبدأ الاستدعاء التراجعي إذا ما أردت حساب كافة المجلدات والملفات الفرعية حتى النهاية .. واإلى أن احصل على توضيحك يمكنك استعمال الكود التالي لايجاد عدد الملفات (فقط) داخل المجلد..

Private Sub Command1_Click()
  Dim iCounter%, sFile$
  sFile = "C:Windows"
  'للملفات على الجذر
  sFile = Dir(sFile)
  'لكافة الملفات والمجلدات الفرعية (تفرع أولي) للجذر
  'str_File = Dir(str_Dir, vbDirectory)
  Do Until sFile = ""
    iCounter = iCounter + 1
    sFile = Dir
  Loop
  MsgBox iCounter
End Sub

شكراً أخي لك على إجابتك التي أوفت بالمطلوب وهو عدد الملفات داخل المجلد دون حساب للمجلدات الفرعية .

وتحياتي للجميع .

ياحبذا لو أوضحت لنا أكثر .. كما أشرت في ردك

....." .. ستحتاج لاستخدام مبدأ الاستدعاء التراجعي إذا ما أردت حساب كافة المجلدات والملفات الفرعية ختى النهاية "

حفظك الله

محبك / أبو زيد

مبدأ الاستدعاء التراجعي Recursion هو احد المبادئ المتقدمة في لغات البرمجة وهناك العديد من الخوارزميات الشهيرة له وهذا مثال لتوضيح المفهوم مدمج بداخل احد الاكواد وهو برنامج للبحث تجده على الرابط http://www.vb4arab.com/vb/showthread.php?s...=&threadid=8681 ويمكنك ببعض التعديل البسيط جعله منطبقا على المثال السابق.