Aplicación
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