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

La función FileDateTime en VBA se utiliza para obtener la fecha y hora de la última modificación de un archivo. La función devuelve un valor que representa la fecha y hora de la última modificación en formato de fecha/hora de VBA, que se puede utilizar para propósitos de comparación, visualización, o para tomar decisiones basadas en cuándo fue modificado el archivo.

Ejemplo

VBA

Sub EjemploFileDateTime()
    Dim rutaArchivo As String
    Dim fechaHoraModificacion As Date
    
    ' Define la ruta completa al archivo
    rutaArchivo = "C:\miCarpeta\miArchivo.txt"
    
    ' Comprueba si el archivo existe antes de intentar obtener su fecha de modificación
    If Dir(rutaArchivo) <> "" Then
        ' Obtiene la fecha y hora de última modificación del archivo
        fechaHoraModificacion = FileDateTime(rutaArchivo)
        
        ' Imprime la fecha y hora de modificación en la Ventana Inmediato
        Debug.Print "El archivo fue modificado por última vez en: " & fechaHoraModificacion
    Else
        Debug.Print "El archivo no existe."
    End If
End Sub

En este ejemplo, se supone que tienes un archivo llamado miArchivo.txt en C:\miCarpeta\. La macro comienza por definir la ruta del archivo y luego verifica si el archivo existe usando la función Dir. Si el archivo existe, se utiliza FileDateTime para obtener la fecha y hora de la última modificación y se imprime en la Ventana Inmediato. Si el archivo no existe, se imprime un mensaje indicando que el archivo no existe.

Es importante notar que la función FileDateTime solo funciona si el archivo existe en la ruta especificada; de lo contrario, puede generar un error. Además, dependiendo de los ajustes de seguridad del sistema operativo o de los atributos del archivo, es posible que la función no pueda acceder a la información de algunos archivos y puede devolver un error.

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

¡Únete a nuestro Grupo de Facebook!

Deja un comentario