Примітка.: Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".
Повертає довге значення, яке позначає розмір у байтах файлу, відкритого за допомогою оператора Open .
Синтаксис
LOF ( filemenuber )
Обов'язковийаргумент – це ціле число, яке міститиме припустимий номер файлу.
Примітка.: Використовуйте функцію 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.
