Contenido
La función FileLen en VBA se utiliza para obtener el tamaño de un archivo en bytes. Esta función es muy útil cuando necesitas conocer el tamaño de un archivo antes de operar con él.
Para usar FileLen, simplemente necesitas proveer el camino completo al archivo del cual quieres obtener el tamaño.
Ejemplo
Sub ObtenerTamanoArchivo()
Dim rutaArchivo As String
Dim tamano As Long
rutaArchivo = "C:\miCarpeta\miArchivo.txt"
' Asegúrate de que el archivo exista antes de intentar obtener su tamaño
If Dir(rutaArchivo) <> "" Then
tamano = FileLen(rutaArchivo)
MsgBox "El tamaño del archivo es " & tamano & " bytes."
Else
MsgBox "El archivo no existe."
End If
End Sub
En este ejemplo, rutaArchivo debe ser reemplazada con la ruta completa al archivo que deseas examinar. Si el archivo existe, FileLen devuelve el tamaño del archivo en bytes. Si el archivo no existe, Dir devolverá una cadena vacía «», y el mensaje correspondiente se mostrará al usuario.
Ten en cuenta que FileLen puede devolver un tipo de dato Long, por lo que es capaz de manejar archivos de hasta 2 GB. Si necesitas trabajar con archivos de más de 2 GB, tendrás que usar APIs de Windows o algún otro método para obtener el tamaño del archivo.