Contenido

# Función Lof

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

### Sintaxis:

    Lof (FileNumber) As Long

### Devuelve tipo:

Long

### Parámetros:

FileNumber: 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, utilice 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 sText As Variant ' Debe ser un variant
          Dim aFile As String
          aFile = "C:\Users\ThisUser\data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumero,1 ' Posición al principio
          Put #iNumber, "Esta es la primera línea de texto" 'Rellena la línea con texto
          Put #iNumber, , "Esta es la segunda línea de texto"
          Put #iNumber, , "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 #iNumber, , "Este es un texto nuevo"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iNumber, 20, "Este es el texto del registro 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Debe ser una variante
          Dim aFile As String
          aFile = "~/data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 ' Posición al principio
          Put #iNumber, , "Esta es la primera línea de texto" 'Rellena la línea con texto
          Put #iNumber, , "Esta es la segunda línea de texto"
          Put #iNumber, , "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 #iNumber, , "Este es un texto nuevo"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iNumber, 20, "Este es el texto del registro 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

Temas relacionados

Instrucción Close

Instrucción Print#

Instrucción Open

Instrucción Get

¡Necesitamos su ayuda!