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

¡Necesitamos su ayuda!