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