Vba 是否删除超过5天的备份文件？

我不知道如何以编程的方式删除这些excel文件，比如说当它们5天、5个工作日或更早的时候。我能想出如何删除他们，如果他们是5天以上的当前日期，但周末和假期等留下一些 未删除

任何帮助都将不胜感激

下面是备份excel文件的代码

Dim backupfolder As String
    backupfolder = "E:/CLIENTS/ExcelBackup/BackupJM/"

Dim savedate
    savedate = Date ' Current system date

Dim savetime
    savetime = Time ' Current system time

Dim formattime As String
    formattime = Format(savetime, "hh.mm.ss")

 Dim formatdate As String
    formatdate = Format(savedate, "DD-MM-YYYY")

Application.DisplayAlerts = False
    'Application.Run ("Auto_Save")

ActiveWorkbook.SaveCopyAs fileName:=backupfolder & formatdate & " " & formattime & " " & 

ActiveWorkbook.Name

 ActiveWorkbook.Save

Application.DisplayAlerts = True

 MsgBox "Backup Run. Please Check at: " & backupfolder

---

您可能应该显示当前删除它们的代码，这应该是一个简单的修复程序，以排除非工作日假期可能会变得复杂。