Script to delete files older than x days

A quick script to delete files older than a certain number of days, be careful if you run this against a root dir!

'*  Script Name:        DeleteOldFiles.vbs
'*  Created On:         08/08/2013
'*  Author:                Jimmy White
'*  Version:            1.0
'NOTE! The Account used to run script needs delete permissions to folder & files.
Const sSource    = "G:\" ' For example, or "X:\" but not "G:"
Const MaxAge     = 30 'time in days
Const Recursive  = True 'deletes everything under the source
Dim dtOld, Checked, Deleted, verb
dtOld   = Now - MaxAge
Checked = 0
Deleted = 0
Validate sSource
Cleanup sSource
Sub Validate(sFolder)
    With CreateObject("Scripting.FileSystemObject")
        If Not .FolderExists(sFolder) Then
            Err.Raise 76 'Path not found
        End If
        If .GetFolder(sFolder).IsRootFolder Then
            If .GetDrive(.GetDriveName(sFolder)) = _
            CreateObject("WScript.Shell").Environment(_
            "PROCESS")("HOMEDRIVE") Then
                Err.Raise 75 'Path/File access error
            End If
        End If
    End With
End Sub
Sub Cleanup(sFolder)
    Err.Clear
    On Error Resume Next
    Dim obj
    With CreateObject("Scripting.FileSystemObject").GetFolder(sFolder)
        'recurse first
        If Recursive Then
            For Each obj In .SubFolders
                Cleanup obj
            Next
        End If
        'next delete oldest files
        For Each obj In .Files
            If obj.DateCreated < dtOld Then
                Deleted = Deleted + 1
                WScript.Echo verb & obj.Path & """"
                If Active Then obj.Delete(True)
            End If
        Next
        Checked = Checked + .Files.Count
        'and then delete old or empty folders
        For Each obj In .SubFolders
            If obj.DateCreated < dtOld Or 0 = obj.Size Then
                'count here in a variable if you like...
                If Active Then obj.Delete(True)
If Err.Number<>0 THen
                            'do nothing!
                  End If
            End If
        Next
    End With
End Sub

Canon Original PG-540/CL-541 Ink Cartridge - Multi-Coloured, Pack of 2

(31035)

£29.99

Col: black, col (cyan, magenta, yellow) in multipack Compatible with Canon PIXMA MG2150,MG2250,MG3150,MG3150 MONSTRES ACADEMY,MG3250,MG3510,MG3550,MG3550 MONSTRES ACADEMY,MG3650 Compatible with Canon PIXMA MG2150,MG2250,MG3150,MG3150 MONSTRES ACADEMY... read more

(as of 2nd August 2021 - More infoProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)

Sound Reactive LED Light Bar - 32 Bit RGB Colorful Sound Control Audio Music Rhythm Dynamic Level Indicator Display Strip Light for Car Gaming, PC, TV, Room

£13.99

★ Premium Material: This sound reactive LED light uses acrylic material shell, which is sturdy and durable. There are no less than 8 display modes, 4 levels of brightness adjustable, and 5 levels of speed adjustable. ★ Excellent Design: 32-bit soft l... read more

(as of 2nd August 2021 - More infoProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)

Your's Bath Solar Hanging Lanterns, 32 Inches Retro Solar Lantern, Outdoor Decorative Lights, Waterproof Pathway Light, Industrial Look Steel Cage Solar Lantern for the Garden (Brass)

£11.69

💡【Designed for Outdoor】: Waterproof and dustproof, suitable for long-term outdoor environment. The bronze paint on the outside of the bulb can prevent rust. 💡【Soft Lighting】: The rural solar hanging light creates a romantic and comfortable space. Mak... read more

(as of 2nd August 2021 - More infoProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)

Logitech MX Master 3 Advanced Wireless Mouse, Bluetooth or 2.4GHz USB Receiver, Ultrafast Scrolling, 4000 DPI Any Surface Tracking, Ergonomic, 7 Button, Rechargeable, PC/Mac/Laptop/iPadOS - Dark Grey

(31494)

£68.87

Ultrafast Magspeed Scrolling: Experience the remarkable speed, precision and near-silence of magnetic scrolling with the reinvented MagSpeed Wheel which shifts between ratchet and hyper-fast modes Hand-sculpted for Comfort: Perfectly crafted with an ... read more

(as of 2nd August 2021 - More infoProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)