Función Lof

Devuelve el tamaño de un archivo abierto en bytes.

Sintaxis:

Lof (NúmeroArchivo)

Valor de retorno:

Largo

Parámetros:

NúmeroArchivo: Cualquier expresión numérica que contenga el número de archivo especificado en la instrucción Open.

Icono de consejo

Para obtener la longitud de un archivo que no está abierto, se utiliza la función FileLen.


Códigos de error:

5 Llamada a procedimiento no válida

52 Nombre de archivo o número incorrectos

Ejemplo:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sTexto As Variant REM Debe ser una variante

Dim aFile As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Random As #iNumber Len=32

    Seek #iNumero,1 REM Posición al principio

    Put #iNumero,, "Esta es la primera línea de texto"  REM Rellenar con texto

    Print #iNumero, "Esta es la segunda línea de texto"

    Print #iNumero, "Esta es la tercera línea de texto"

    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 #iNumero,,"Esto es una línea de texto nueva"

    Get #iNumber,1,sText

    Get #iNumber,2,sText

    Put #iNumero,20,"Este es el texto del registro 20"

    Print Lof(#iNumber)

    Close #iNumber

End Sub