📏 Функция LOF — получение размера файла
В VBA Excel функция LOF (Length Of File) позволяет узнать размер открытого файла в байтах.

📌 Синтаксис:
LOF(FileNumber)
🔹 FileNumber – номер файла, полученный после его открытия с помощью оператора Open.

🔍 Пример получения размера файла

Sub GetFileSize()
    Dim fileNum As Integer
    Dim fileSize As Long
    Dim filePath As String

    ' Указываем путь к файлу
    filePath = "C:\Test\Текстовый документ.txt"

    ' Открываем файл для чтения
    fileNum = FreeFile
    Open filePath For Input As fileNum

    ' Получаем размер файла
    fileSize = LOF(fileNum)

    ' Закрываем файл
    Close #fileNum

    ' Выводим результат
    MsgBox "Размер файла: " & fileSize & " байт", vbInformation, "Размер файла"
End Sub

С помощью функции LOF можно из файла с последовательным доступом считать весь текст в переменную.

🔍 Пример записи в переменную всего содержимого файла

Sub ReadFileToVariable()
    Dim fileNum As Integer
    Dim fileText As Variant
    Dim filePath As String

    ' Указываем путь к файлу
    filePath = "C:\Test\Текстовый документ.txt"

    ' Открываем файл для чтения
    fileNum = FreeFile
        Open filePath For Input As fileNum
            ' Записываем в переменную все содержимое файла
            fileText = Input(LOF(fileNum), fileNum)
        Close fileNum
    ' Смотрим содержимое переменной
    Debug.Print fileText
End Sub

🔄 Сравните результат работы кода, заменив строку fileText = Input(LOF(fileNum), fileNum) на Input #fileNum, fileText (будет считана только первая строка).

#VBA #ExcelVBA #LOF #Open #Input #FreeFile