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

La función `FileLen` en VBA (Visual Basic for Applications) se utiliza para obtener el tamaño, en bytes, de un archivo específico. Esta función es útil cuando necesitas conocer el tamaño de un archivo para propósitos como validación, análisis o procesamiento de datos. A continuación, se explica cómo usar la función `FileLen`:

Sintaxis

FileLen(PathName As String) As Long

PathName: Este es un argumento obligatorio que especifica la ruta y el nombre del archivo del cual deseas obtener el tamaño. Debe ser una cadena que incluya la ruta completa o relativa del archivo.

Uso Básico

Aquí tienes un ejemplo simple de cómo usar `FileLen` en un procedimiento VBA:

Sub ObtenerTamañoArchivo()
    Dim tamaño As Long
    Dim rutaArchivo As String

    ' Especifica la ruta del archivo
    rutaArchivo = "C:rutadelarchivomiArchivo.txt"
    
    ' Usa FileLen para obtener el tamaño del archivo
    On Error Resume Next ' Evita que se detenga el código si el archivo no existe
    tamaño = FileLen(rutaArchivo)
    If Err.Number <> 0 Then
        MsgBox "El archivo no existe.", vbExclamation
    Else
        MsgBox "El tamaño del archivo es " & tamaño & " bytes.", vbInformation
    End If
    On Error GoTo 0 ' Vuelve a habilitar la muestra de errores
End Sub

Consideraciones

Error Handling: Es una buena práctica manejar los posibles errores cuando usas `FileLen`, ya que intentando obtener el tamaño de un archivo que no existe causará un error en tiempo de ejecución. Usar `On Error Resume Next` y verificar `Err.Number` como en el ejemplo es una forma efectiva de manejar esto.
Compatibilidad: `FileLen` solo te devuelve el tamaño del archivo, no su contenido o cualquier otra información.
Ruta Correcta: Asegúrate de que la ruta del archivo esté correctamente escrita. Las barras diagonales deben ser escapadas (doble barra diagonal en VBA) o usa barras diagonales inversas.

Este ejemplo simple debería proporcionar una base sólida para usar `FileLen` en tus proyectos de VBA. ¡Espero que te sea útil!

facebooklinkedin