aşağıdaki kod işinize yarayabilir
kullanırken dikkatli olun bildiğim kadarıyla silinenler çöp kutusuna gitmiyor
doğrudan tamamen siliniyor

Dim FSO As Object '//FileSystemObject

Dim f As Object '//File Object



' AnaKlsr = CurrentProject.Path

    With Application.FileDialog(4)

    .Title = "Klasör Seçiniz"

    .InitialFileName = CurrentProject.Path & "\"

        If Application.FileDialog(4).Show = -1 Then AnaKlsr = .SelectedItems(1)

    End With

 

 Set FSO = CreateObject("Scripting.FileSystemObject")

With FSO

    If .FolderExists(AnaKlsr) Then

        For Each f In .GetFolder(AnaKlsr).Files

            If (f.DateCreated <= Date - 7) Then f.Delete

' aşağıdaki kod isee son güncellenme yada oluşturulma tarihine göre 7 günden eski dosyaları siler

'            If (f.DateCreated <= Date - 7) Or (f.DateLastModified <= Date - 7) Then f.Delete

            

        Next f



    End If

End With