'deletes files older than 14 days in the sql backups folder.
'vbs - jcc

'Just need to change the backup folder & BackupAge to match
'BackupAge should be # of backups you want + 1 (i.e. - to keep 14 backups, number should be 15)


Dim Fso
Dim Directory
Dim Modified
Dim Files


Set Fso = CreateObject("Scripting.FileSystemObject")
Set Directory = Fso.GetFolder("c:\sharepointbackups")
Set Files = Directory.Files


For Each Modified in Files
If DateDiff("D", Modified.DateLastModified, Now) > 15 Then Modified.Delete
Next