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