Written
June 02, 2011
This script should not be published in this forum because of its poor use of native VB Script date arithmetic functions. Here is a much better way to delete files older than 14 days:
Const sFolder = "F:\Data"
Const iRetention = 14 'Retention period in days
Const bDebug = True
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sFolder)
PurgeFolder oSubFolder
Sub PurgeFolder(oFldr)
For Each oFile In oFldr.Files
If DateDiff("d", oFile.DateCreated, Now) > iRetention Then
If bDebug Then
WScript.Echo "Deleting", oFile.Path
Else
oFile.Delete
End If
End If
Next
For Each oSubfldr In oFldr.SubFolders
PurgeFolder oSubfldr
Next
End Sub
Try Out the Latest Microsoft Technology
Written June 02, 2011