Trim Backup Files

'**********************************************************************
'  Trim Old Backups
'
' This script will remove (delete) old backup files that are older
' than a certain date. The number of days that are being kept
' is stored in a global variable "DaysToKeep". This script is designed
' to run once a day, find the most recent backup that is closest to 
' but older than the value in DaysToKeep and remove all files older 
' than this file. 
' The script searches all folders below the backup path given in 
' the global variable "BackupPath" and processes each one separately.
'************************************************************************
Function Main()
'On Error Resume Next

Dim strDestPath, strNewFile, strSourcePath, strDBName
Dim objobjFSO, objFolder, objFileHandle
Dim strBaseDate, strOldFileHandle, strFromFile, strToFile
Dim objFolderItem
Dim ObjFileItem
Dim objFiles
Dim objTxtFile
Dim dude
Dim iDays

' Get source and destination paths
strSourcePath = DTSGlobalVariables("BackupPath").value
strDays = DTSGlobalVariables("DaystoKeep").value
iDays = 0 - strDays

' Initialize Variables
strDBName = DTSGlobalVariables("DBname").value
strNewFile = "\" & strDBName & ".bak"
strBaseDate = DateAdd( "d" , iDays , Date)

' Create FileSystem Object and then get the Files collection
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Test file
Set objTxtFile = objFSO.CreateTextFile(  "c:\DTS_TrimBUFiles.txt", TRUE)
objTxtFile.writeline( "DTS Trim Backup Files" )
objTxtFile.writeline( " " )
objTxtFile.writeline( "BaseDate:" & strBaseDate )
objTxtFile.writeline( "Date:" & Date )
objTxtFile.writeline( "iDays:" & iDays )
objTxtFile.writeline( "strDays:" & strDays )
objTxtFile.writeline( " " )

Set objFolder = objFSO.GetFolder(strSourcePath)

' Loop through each folder
For Each objFolderItem in objFolder.Subfolders

objTxtFile.writeline( objFolderItem.name)
objTxtFile.writeline( "|")

Set objFiles = objFolderItem.Files

For Each objFileItem in objFiles
objTxtFile.writeline( "|- " & objFileItem.Name & " : "  & objFileItem.dateCreated)
if objFileItem.Datecreated < strBaseDate Then
objTxtFile.writeline( "     delete  ")

' Remove the last backup
objFSO.DeleteFile objFileItem
end if
Next

objTxtFile.writeline( "  " )

Next

' Clean up
Set objFSO = Nothing

objTxtFile.Close

Main = DTSTaskExecResult_Success

End Function