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:\path\a\tu\archivo.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

Access

Power BI

Ayúdanos a hacer crecer el proyecto