Hello, I have used the following to delete files older then 28 days just replace with the correct paths and the number of days and you should be good to go.
Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("E:\Folder")
Set fc = f.Files
For Each f1...