كود لمعرفة حجم ملف

[TQTHAMI]

السلام عليكم ورحمة الله وبركاته 

هذا الكود لمعرفة حجم قاعدة البيانات 

Me.zx = Round((FileLen(CurrentDb.Name) / 1024) / 1024, 2) & " " & "MB"

لدي ملف مرتبط لقاعدة البيانات  واسمة (fold_1)وبداخلة عدة ملفات وابي اعرف حجمة  بما فيه من ملفات وان امكن عدد الملفات الي بداخل الملف 

وتقبلوا خالص التحيا والتقدير

[دروب مبرمج]

للحصول على حجم ملف محدد استخدم الكود التالي

في اي مكان داخل محرر الاكواد الصق الكود التالي

Public Function GetFileSize(foldPath As String) As Double
GetFileSize = FileLen(foldPath) / 1024
End Function

و للإستخدام

GetFileSize(" مسار الملف ")

[TQTHAMI]

ل الأسف ما ضبطت  معي واعتقد ان الخطاء مني 

وارفقت المثال لكي اعرف الخطاء 

ch.rar

[دروب مبرمج]

تفضل التعديل

Database15.zip

[TQTHAMI]

الله يسعدك دنيا واخرة 

وبارك الله لك في ذريتك

تقبل تحياتي

[TQTHAMI]

المثال شغال 100% لمن تسخة ووضعته في البرنامح  نفس المسنيات وتفس الموقع وطلع لي هذا الخطاء

يحتاج تفعيل مكتبه 

تمام ضبط

الف شكر لك

[دروب مبرمج]

اضف المكتبة التالية 

 

تم تعديل يونيو 14, 2023 بواسطه دروب مبرمج