11-08-18, 03:25 PM
(11-08-18, 12:09 PM)حريف برمجة كتب : يمكنك الاستفادة من الكود السابق كالتالي :شكرا لك اخي حريف برمجة وهو المطلوب
كود :
اسم الملف Databaase1.accdb
هنا الملف موجود في القرص سي
Dim sz As Long = FileLen("C:\Database1.accdb")
هنا الملف موجود في مجلد البرنامج
Dim sz As Long = FileLen(Application.StartupPath & "\Database1.accdb")
هنا الحجم بالكيلوبايت
sz = sz / 1024
وضع حجم الملف في تكست بوكس
TextBox1.Text = Val(sz) & " kb"
أو إظهار رسالة بحجم الملف
MsgBox(sz & " kb")
