Eliminar arquivos de backups

Bom dia a todos!
Estou usando a função criada pelo mestre Avelino, para gerar o backup, tá funcionando cria os backups com data e hora de maneira que não sobrepõe, só que gostaria de manter talvez apenas os backups tipo dos últimos 2 dias e eliminar os outros, porque vai acumulando e tenho de apagar manualmente. Se alguem puder me ajudar.... desde já agradeço!



Public Function fncbackup()
Dim booResultado As Boolean
Dim objws As Object
Dim objfs As Object
Dim strOrigem As String
Dim strDestino As String

On Error GoTo trataerro

strOrigem = "c:\Maestro\Maestro_be.accdb"
strDestino = "c:\Maestro\backup\Maestro_be" & Format(Date, "ddmmyy") & "-" & Format(Time, "hhmmss") & ".accdb"

Set objfs = CreateObject("Scripting.FileSystemObject")
objfs.CopyFile strOrigem, strDestino
Set objws = CreateObject("wscript.shell")
objws.SendKeys "a1234", True
objws.SendKeys "{ENTER}"
booResultado = Application.CompactRepair(strDestino, Replace(strDestino, "-", "-c"), True)

If booResultado = True Then FileSystem.Kill strDestino
Set objws = Nothing
Set objfs = Nothing

If Len(Dir(Left(strDestino, InStrRev(strDestino, "\")) & "*.log", vbArchive) & "") > 0 Then
MsgBox "Foi detectado problemas no arquivo de backup." & vbCrLf & _
vbCrLf & "Entre em contato imediatamente com o administrador do Banco de Dados", vbCritical, "Aviso"
End If

sair:
DoCmd.Quit acQuitSaveAll
Exit Function
trataerro:
MsgBox Err.Number & " - " & Err.Description, vbInformation, "Aviso"
Resume sair
End Function

Boa noite,
Precisa eliminar todos os ficheiros da pasta que tenham mais que 2 dias?

Bom dia, deixa ver se consigo me expressar melhor, ao criar os backups, eles vao se acumulando, pois ele vai alterando o nome e acrescentando data e hora, portanto não sobrescreve o anterios, até ai achei ótimo, pra mim pois eu entro na pasta de backups e apago manualmente os que desejo.... tambem na hora de restaurar fica complicado pq são todos nomes diferentes, agora para colocar num aplicativo, que vai para o cliente seria melhor se não acumulasse tantas cópias, ou que fosse possivel escolher atraves do aplicativo