Получить последний измененный файл или папку в каталоге с динамическим именем

Question

Я пытаюсь отобразить последнего человека, который обращался к файлу Excel и времени в листе Excel, но имя файла меняется каждый день (имя файла содержит дату).

Мои текущие коды дают мне ошибку файла ненашел что я пробовал и ActiveWorkbook.path и Application.ActiveWorkbook.Path.

Sub Main()
'Setting Summary Report
Dim sAuthor As String
sAuthor = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
 'Last modified person & time
    Dim fileModDate As String
    Dim fs
    Dim f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(Application.ActiveWorkbook.Path)
    fileModDate = f.DateLastModified
    Worksheets("Sheet1").Range("A2") = sAuthor & " " & fileModDate
End Sub

Я мог бы повторно сохранить файл как единое имя, например test или что-то в этом роде, но я не был уверен, можно ли изменить коды, чтобы это работало, поэтому мне не нужно повторносохраните файл.

Answer 1

Думаю, я выложу ответ, чтобы закрыть его

Sub Main()
    'Setting Summary Report

    'Last author
    Dim sAuthor As String
    sAuthor = ActiveWorkbook.BuiltinDocumentProperties("Last Author")

    'Last modified time
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim file As Object
    Set file = fso.GetFile(ActiveWorkbook.FullName)

    Dim fileModDate As String
    fileModDate = file.DateLastModified

    'Updating range to last author and modified time
    Worksheets("Sheet1").Range("A2").Value2 = sAuthor & " " & fileModDate

End Sub