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