Ajuda del LibreOffice 7.1
Torna la mida d'un fitxer obert en bytes.
Lof (FileNumber)
Llarg
FileNumber: Qualsevol expressió numèrica que contingui el nombre de fitxer que s'especifica a l'expressió Open.
Per a obtenir la longitud d'un fitxer que no és obert, utilitzeu la funció FileLen.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM ha de ser una Variant
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Posició al principi
Put #iNumber,, "Aquesta és la primera línia de text" REM Ompliu amb text
Put #iNumber,, "Aquesta és la segona línia de text"
Put #iNumber,, "Aquesta és la tercera línia de text"
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,,"Això és una línia de text nova"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"Aquest és el text del registre 20"
Print Lof(#iNumber)
Close #iNumber
End Sub