Примечание: Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".
Возвращает значение Long, представляющее размер (в байтах) файла, открытого с помощью инструкции Open .
Синтаксис
LOF( filenumber )
Обязательныйаргументfilenumber — это целое число, содержащее допустимый номер файла.
Примечание: Используйте функцию FileLen , чтобы получить длину файла, который не открыт.
Пример
Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (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.