Функция LOF

Важно :  Данная статья переведена с помощью машинного перевода, см. Отказ от ответственности. Используйте английский вариант этой статьи, который находится здесь, в качестве справочного материала.

Примечание : Функция, метод, объектов и свойств, описанных в этом разделе отключается, если службы выражений Microsoft Jet выполняется в изолированном режиме, исключающий оценки потенциально небезопасных выражений. Дополнительные сведения об изолированном режиме искать «изолированный режим» в справочной системе.

Возвращает значение типа Long, представляющее размер файла в байтах, открывается с помощью инструкции Open .

Синтаксис

LOF ( номер_файла )

Требуется номер_файлааргумент является целое число, содержащее допустимый номер файла.

Примечание : Для получения длины файла, который не открыт, используйте функциюleLenFi.

Пример

Примечание : В примерах ниже показано, как использовать эту функцию в модуле 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.

Примечание : Отказ от ответственности относительно машинного перевода. Данная статья была переведена с помощью компьютерной системы без участия человека. Microsoft предлагает эти машинные переводы, чтобы помочь пользователям, которые не знают английского языка, ознакомиться с материалами о продуктах, услугах и технологиях Microsoft. Поскольку статья была переведена с использованием машинного перевода, она может содержать лексические,синтаксические и грамматические ошибки.

Совершенствование навыков
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×