وظيفة لحساب عدد البايتات التي يشغلها الدليل

يتم استخدام الوظيفة التالية لحساب عدد البايتات التي يشغلها دليل الملف:

ترجع الدالة REM عدد البايتات التي يشغلها الدليل.

الدالة DirUsedBytes(ByVal dirName As String) طويلة

اسم الملف خافت كسلسلة

خافت FileSize كعملة

إذا كان Right$(dirName, 1) <> / ثم

اسم دير = اسم دير & /

إنديف

حجم الملف = 0

اسم الملف = Dir$(dirName & *.*)

افعل بينما اسم الملف <>

حجم الملف = حجم الملف + FileLen(اسم دير واسم الملف)

اسم الملف = دير$

حلقة

DirUsedBytes = FileSize

وظيفة النهاية

كيفية الاستخدام:

MsgBox DirUsedBytes(D:/music)