fecha (Real) de creacion de un archivo

[ragiel]

Los archivos en el Sistema tienen fecha de creacion pero esta varia cada vez que
el archivo es copiado o movido, se requeriere saber la fecha rel de un archivo
sin la necesidad de abrirlo (el archivo no necesariamente esta en excel), la
siguiente macro (que si sirve) fue propuesta pero se requiere saber los datos
de
un archivo no abierto, Como debe modificarse para que se ingrese ruta y nombre
del archivo (cabe indicar que el archivo a consultar no debe abrirse). Gracias

Sub Fechas_de_creacion()
With CreateObject("Scripting.FileSystemObject")
'With .GetFile(ActiveWorkbook.FullName)
MsgBox "Fechas de creacion del libro activo:" & vbCr & _
"En el sistema: " & .DateCreated & vbCr & _
"En propiedades: " &
ActiveWorkbook.BuiltinDocumentProperties("creation date")
End With
End With
End Sub