How Can I Delete All the .BAK Files in a Folder That Are More Than 7 Days Old?
From Hey, Scripting Guy! Archive.
dtmDate = Date – 7
strDay = Day(dtmDate)
If Len(strDay) < 2 Then
strDay = “0″ & strDay
End If
strMonth = Month(dtmDate)
If Len(strMonth) < 2 Then
strMonth = “0″ & strMonth
End If
strYear = Year(dtmDate)
strTargetDate = strYear & strMonth & strDay
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2″)
Set FileList = objWMIService.ExecQuery _
(“ASSOCIATORS OF {Win32_Directory.Name=’C:\Scripts’} Where ” _
& “ResultClass = CIM_DataFile”)
For Each objFile In FileList
strDate = Left(objFile.CreationDate,8)
If strDate < strTargetDate Then
If objFile.Extension = “bak” Then
objFile.Delete
End If
End If
Next
**********
http://home.mnet-online.de/horst.muc/wbat32.htm
DelAge32 deletes or moves files with a mimimum age given by the number of days.
Syntax: DelAge32 filespec days [options]
