Последний доступ, последний измененный

Question

Я хочу создать инструмент, который покажет мне, когда у меня был последний доступ или последнее изменение в пути и папках. В общем, я думаю, что мой инструмент должен работать. Но я только хочу получить последний принятый и последний измененный файл, чтобы заполнить мой Рабочий лист. Я не так хорош в описании, поэтому я надеюсь, что мой код даст вам лучшую информацию

Sub CommandButton1_Click()
    Dim cb As Control
    Dim I As Integer
    For Each cb In ActiveSheet.CheckBoxes
'        If Left(cb.Name, 8) = "Checkbox" Then
        If cb = True Then
            str_mandant = Right(cb.Name, Len(cb.Name) - 3)
            str_sparkasse_pfad = ThisWorkbook.Worksheets("Mandantenliste").Range("Mandanten").Find(what:=str_mandant, lookat:=xlWhole, LookIn:=xlValue).Offset(0, 2).Value
            Set fso = CreateObject("Scripting.FileSystemObject").GetFolder(str_sparkasse_pfad & "\Eingang\")
            With ThisWorkbook.Worksheets("Arbeitsvorrat")
                int_zeile = .Cells(2, 26).End(xlDown).Row
                For Each file In fso.Files
                    int_zeile = int_zeile + 1
                    .Cells(int_zeile, 2) = "Sparkasse"
                    .Cells(int_zeile, 10) = file.DateCreated
                    .Cells(int_zeile, 6) = file.DateLastAccessed
                    .Cells(int_zeile, 8) = file.DateLastModified
                Next
            End With
        End If
    Next
End Sub

Надеюсь, вы, ребята, сможете мне помочь. Спасибо!