Как можно узнать...

Усё достаточно просто!
Public Sub Find_time()
Dim Time_create As Date
''"c:\Drawing1_темп.dwg" путь к интересующему файлу
Time_create = FileDateTime("c:\Drawing1_темп.dwg")
End Sub