With CreateObject("Scripting.FileSystemObject")
    Debug.Print "'"; ThisWorkbook.FullName; "'"
    With .GetFile(ThisWorkbook.FullName)
      Debug.Print "     DateCreated: "; .DateCreated
      Debug.Print "DateLastModified: "; .DateLastModified
    End With
  End With

Hier am Beispiel wird der Dateiname der gespeicherten Mappe hergenommen. Geht natürlich mit jeder beliebigen Datei.

Du solltes vorher prüfen ob die Datei existiert, sonst Laufzeitfehler in Zeile 3. ;)