หมายเหตุ: ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า Microsoft Jet Expression Service ทํางานในโหมด Sandbox ซึ่งจะป้องกันการประเมินนิพจน์ที่อาจไม่ปลอดภัย สําหรับข้อมูลเพิ่มเติมเกี่ยวกับโหมด Sandbox ให้ค้นหา "โหมด Sandbox" ในวิธีใช้
ส่งกลับ Long ที่แสดงขนาดเป็นไบต์ของไฟล์ที่เปิดโดยใช้คําสั่ง เปิด
ไวยากรณ์
LOF( filenumber )
อาร์กิวเมนต์ 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.