Cacher is the code snippet organizer for pro developers

'==============================
'Remove old backups
'http://gordondurgha.com
'=============================

'Definitions
iDaysOld = 3
strExtension = ".bak"
sDirectoryPath = "D:\MSSQL\Backups\"

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sDirectoryPath)
Set oFileCollection = oFolder.Files

'Walk through each file in this folder collection.
  For each oFile in oFileCollection
  If oFile.DateLastModified < (Date() - iDaysOld) Then
	      If Right(UCase(oFile.Name), Len(strExtension)) = UCase(strExtension) Then
	              oFile.Delete(True)
	      End If
	End If
  Next

'Clean up
Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing