Довідка LibreOffice 7.1
Повертає розмір відкритого файлу в байтах.
Lof (Номер_файлу)
Long
Номер_файлу. Будь-який числовий вираз, який містить номер файлу, що вказаний в операторі Open.
Щоб отримати довжину файлу, який не відкрито, використовуйте функцію FileLen.
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