fecha (Real) de creacion de un archivo

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