ملاحظة
يتم تعطيل الوظيفة أو الطريقة أو العنصر أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة Microsoft Jet Expression Service قيد التشغيل في وضع الحماية، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع الحماية، ابحث عن "وضع الحماية" في "تعليمات".
تعرض هذه الدالة Long الحجم بالبايت لملف مفتوح باستخدام العبارة Open.
بناء الجملة
LOF(filenumber)
إن وسيطة رقم الملفالمطلوب عبارة عن عدد صحيح يحتوي على رقم ملف صالح.
ملاحظة
استخدم الدالة FileLen للحصول على طول ملف غير مفتوح.
مثال
ملاحظة
توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية ل Visual Basic for Applications (VBA). لمزيد من المعلومات حول استخدام VBA، حدد "مرجع المطور" في القائمة المنسدلة بجوار "بحث" وأدخل مصطلح أو أكثر في مربع البحث.
يستخدم هذا المثال الدالة LOF لتحديد حجم ملف مفتوح. يفترض هذا المثال أنه TESTFILE ملف نصي يحتوي على عينات بيانات.
Dim FileLength
Open "TESTFILE" For Input As #1 ' Open file.
FileLength = LOF(1) ' Get length of file.
Close #1 ' Close file.