Hey, Scripting Guy! How Can I Delete All the .BAK Files in a Folder That Are More Than 7 Days Old?:
"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"

How to disable the AutoArchive feature and the Personal Folders file feature in Outlook

!Do this on Citrix servers!

The Life Of An Email From Creation To Delivery

Dumb Little Man - Tips for Life: "tips that will save you money, increase your productivity, or simply keep you sane."

Mathematical recreation: "Mathematical recreation "
Very cool!

Test drive the 2007 Microsoft Office release - Help and How-to - Microsoft Office Online: "Test drive the 2007 Microsoft Office"
Test drive Office 2007 over the internet without installing it.