Para que no tengas que copiar el código dos veces, puedes hacer así:
Código:
Sub DeleteBackup(ByVal Path As String)
Dim SF As Scripting.File
Set FSO = New Scripting.FileSystemObject
For Each SF In FSO.GetFolder(Path).Files
If SF.DateCreated < Now - 5 Then Kill Path & SF.Name
Next
End Sub
Código:
DeleteBackup "C:\WINDOWS\Pollo Feliz\Pv Traslados\tickets\"
DeleteBackup "C:\WINDOWS\Pollo Feliz\Pv Traslados\Inventarios\"
Muy buen aporte,
Avellaneda.
No obstante,
william_085, para que te funcione, no deben ser carpetas tus copias de respaldo, sino archivos...