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