Ayuda de LibreOffice 7.1
Devuelve'l tamañu d'un ficheru abiertu en bytes.
Lof (NúmberuFicheru)
Llargu
NúmberuFicheru: Cualquier espresión numbérica que contenga'l númberu de ficheru especificáu na instrucción Open.
Pa llograr el llargor d'un ficheru que nun ta abiertu, utilízase la función FileLen.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sTestu As Variant REM Tien De ser una variante
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNúmberu,1 REM Posición de primeres
Put #iNúmberu,, "Esta ye la primer llinia de testu" REM Rellenar con testu
Print #iNúmberu, "Esta ye la segunda llinia de testu"
Print #iNúmberu, "Esta ye la tercer llinia de testu"
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 #iNúmberu,,"Esto ye una llinia de testu nueva"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNúmberu,20,"Esti ye'l testu del rexistru 20"
Print Lof(#iNumber)
Close #iNumber
End Sub