Storico di files vero 2 giorni

[evvivame]

Ciao a tutti!
Ho un programma per gestire le telecamere che per me è il migliore ma come rosa ha la sua spina nel senso che mi permette di tenere uno storico di xx giorni delle registrazioni continue che faccio.
Ma è uno storico per modo di dire nel senso che se metto 2 giorni, alla fine del 2° giorno invece di cancellare il 1° giorno visto che inizia il 3° mi cancella completamente i 2 giorni e inzia uno nuovo storico di altri 2 gg.

Qualche idea per bypassare questo inconveniente?

Grazieeeeeee !

[evvivame]

Risolto,
alle 23 faccio una copia della cartella di esercizio in una cartella di comodo e poi lancio questo script:
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("M:\comodo")
Set files = folder.Files
For Each file in files
If DateDiff("d", file.DateLastModified, Now) > 2 Then
file.Delete
End If
Next