Lof Function

Devuelve'l tamañu d'un ficheru abiertu en bytes.

Sintaxis:


Lof (NúmberuFicheru)

Valor de torna:

Llargu

Parámetros:

NúmberuFicheru: Cualquier espresión numbérica que contenga'l númberu de ficheru especificáu na instrucción Open.

Iconu de conseyu

Pa llograr el llargor d'un ficheru que nun ta abiertu, utilízase la función FileLen.


Error codes:

5 Llamada a procedimientu non válida

52 Nome de ficheru o númberu incorrectos

Exemplu:


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

Please support us!