¿Cómo usar la función LOF en VBA?

La función LOF en VBA se usa para obtener el tamaño en bytes de un archivo abierto utilizando la instrucción `Open`. LOF significa «Length of File». Para usar la función LOF, primero necesitas tener un archivo abierto a través de un número de archivo libre, que se obtiene mediante la función `FreeFile`. He aquí cómo podrías usarlo:

Sub EjemploLOF()
    ' Declara las variables
    Dim numArchivo As Integer
    Dim rutaArchivo As String
    Dim tamanoArchivo As Long
    
    ' Establece la ruta del archivo a verificar
    rutaArchivo = "C:pathatuarchivo.txt"
    
    ' Obtiene un número de archivo libre
    numArchivo = FreeFile
    
    ' Abre el archivo para entrada (o binario, salida, etc.)
    Open rutaArchivo For Input As #numArchivo
    
    ' Usa la función LOF para obtener el tamaño del archivo
    tamanoArchivo = LOF(numArchivo)
    
    ' Muestra el tamaño del archivo
    MsgBox "El tamaño del archivo es " & tamanoArchivo & " bytes."
    
    ' Cierra el archivo
    Close #numArchivo
End Sub

En este ejemplo, el archivo especificado por `rutaArchivo` se abre para entrada, que es una manera de decir que se abre para leer su contenido. La función `LOF` se utiliza luego para obtener el tamaño total del archivo en bytes, y este tamaño se muestra en un cuadro de mensaje. Finalmente, no olvides cerrar el archivo con `Close #numArchivo` para liberar los recursos del sistema.

Ten en cuenta que si intentas ejecutar la función `LOF` sobre un archivo que no está abierto, VBA generará un error en tiempo de ejecución. Así mismo, asegúrate de tener los permisos necesarios para leer el archivo y de que la ruta del mismo sea correcta y esté bien escrita.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Excel cursos

Access

cursos de Access

Power BI

cursos power BI

Ayúdanos a hacer crecer el proyecto

Deja un comentario