Contenido
Índice 🔎︎

# 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.

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