Category: ASP

Create a script like:

sLogFolder = "path to log folder"
iMaxAge = XX   'in days
Set objFSO = CreateObject("Scripting.FileSystemObject")
set colFolder = objFSO.GetFolder(sLogFolder)
For Each colSubfolder in colFolder.SubFolders
        Set objFolder = objFSO.GetFolder(colSubfolder.Path)
        Set colFiles = objFolder.Files
        For Each objFile in colFiles
                iFileAge = now-objFile.DateCreated
                if iFileAge > (iMaxAge+1)  then
                        objFSO.deletefile objFile, True
                end if
        Next
Next

Save it as a .vbs file and run it using cscript.exe in a command prompt.

How useful was this post?

Click on a star to rate it!

Average rating / 5. Vote count: