Lof Function

Возвращает размер открытого файла в байтах.

Синтаксис

Lof (Номер_файла)

Возвращаемое значение:

Long

Параметры:

Номер_файла. Любое числовое выражение, которое содержит номер файла, указанный в инструкции Open.

Значок подсказки

Чтобы получить длину файла, который не открыт, используйте функцию FileLen.


Error codes:

5 Неправильный вызов процедуры

52 Неправильное имя или номер файла

Пример:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM переменная должна быть типа Variant

Dim aFile As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Random As #iNumber Len=32

    Seek #iNumber,1 REM Позиция в начале

    Put #iNumber,, "Это первая строка текста" REM Заполнение текстом

    Put #iNumber,, "Это вторая строка текста"

    Put #iNumber,, "Это третья строка текста"

    Seek #iNumber,2

    Get #iNumber,,sText

    Print sText

    Close #iNumber

    iNumber = Freefile

    Open aFile For Random As #iNumber Len=32

    Get #iNumber,2,sText

    Put #iNumber,,"Это новая строка текста"

    Get #iNumber,1,sText

    Get #iNumber,2,sText

    Put #iNumber,20,"Это текст в записи 20"

    Print Lof(#iNumber)

    Close #iNumber

End Sub