OPTION EXPLICIT
DIM strExtensionsToDelete,strFolder
DIM objFSO, MaxAge, IncludeSubFolders
strFolder = "C:\NRTEcho\CSDOCS\"
includeSubfolders = true
strExtensionsToDelete = "DOC,doc,XLS,xls,PDF,pfd,PRF,prf,PPT,ppt"
maxAge = 30
set objFSO = createobject("Scripting.FileSystemObject")...