Automatically delete old IIS log files

Great Script but 3 things:

1. Please be careful people the downloaded script in the zip file is not commented properly. it's commented to delete the files please alter the script to do the test run as it shows in the above text field. Hopefully the author will correct this so the script out of the box will be in "chicken mode"

2. This will delete any file with the extension .log. Please exercise caution if you have a shared environment as some customers might have their own log files for their applications. maybe the author will do some altering of the script to match "ex{[0-9]+}.log"

3. This script will only go 2 folders deep. Like in the comments it states it assumes a folder structure that the log files folder is one deeper then the starting point that you type in. It would be nice to have it dive as deep as possible. with the reg ex from comment 2 in place this would be a safe operation to preform as long as you have containerized all web sites to folder and not just put them anywhere.

We added a little bit more code to this you might like to include in your code :)

We wanted to restrict the deletion to a specific folder name when doing the recursion.
Although it still recursivly goes through all the folders it will only delete logs found in the /logs/ folders.

'Restrict to /logs/ folder
If objsubFolder.name = "logs" then
For each objLogFile in objSubFolder.files
Set objFile = objFS.GetFile(objLogFile)

If datediff("d",objFile.DateLastModified,Date()) > intDaysOld and lcase(right(objLogFile,4))=strLogFIleSuffix and Left(objFile.name, Len(strPrefix)) = strPrefix then
'*****************************************************
'DON'T UNCOMMENT THIS UNTIL YOU KNOW IT WORKS PROPERLY!!!
WScript.Echo(padDigits + " Will delete " & objFile.name)
'WScript.Echo(padDigits + " Deleted " & objFile.name)
'objFile.Delete
'*****************************************************
End If
Set objFile = nothing
Next
End If

Our structure is:

d:\websites\logs
d:\websites\www
d:\websites\database

We didn't want the script to remove any ex******.log's that it found in the users \www folder :)

I know nothing about scripting, and have a question. The only files I want purged reside in C:\windows\system32\logfiles\w3svc1 folder, and I want to retain 30 days worth. So do I just change the following to this

intDaysOld = 30
strobjTopFolderPath = "c:\Windows\system32\LogFiles\W3SVC1\"

Thanks

Hey! Great stuff. +1 tnks :) Visit my blog too.

Thanks. Works perfectly.

Dear All,

Here is an adapted version to clean all Logs found in 1-Level subfolders below the Root Folder.

It'll also log in the EventLog instead of msgbox (or console) for better scheduled task compliance.


Option Explicit
On Error Resume Next
Dim intDaysOld, strObjTopFolderPath, strLogFIleSuffix, ObjFS, ObjTopFolder, objShell, tmpObjFileName
Dim ObjLogFolder, ObjW3SvcFolder, ObjSubFolder, ObjLogFile, ObjFile
intDaysOld = 1 'Number of days to retain on the server
strObjTopFolderPath = "C:\WINDOWS\system32\LogFiles" 'The location of your log files
strLogFileSuffix = ".log" 'The suffix of your log files

Set ObjFS = CreateObject("Scripting.FileSystemObject")
Set ObjTopFolder = ObjFS.GetFolder(strObjTopFolderPath)
Set objShell = Wscript.CreateObject("Wscript.Shell")


PurgeLogs()

Sub PurgeLogs()
WriteLog 0,"Purge Logs Script Starting with Root Folder: " & ObjTopFolder.Path
For Each ObjLogFolder in ObjTopFolder.SubFolders
WriteLog 0,"Purge Logs Script Parsing SubFolder: " & ObjLogFolder.name
Set ObjSubFolder = ObjFS.GetFolder(ObjLogFolder)
For each ObjLogFile in ObjSubFolder.files
On Error Resume Next
Err.Clear
Set ObjFile = ObjFS.GetFile(ObjLogFile)
If datediff("d",ObjFile.DateLastModified,Date()) > intDaysOld and lcase(right(ObjLogFile,4))=strLogFileSuffix then
tmpObjFileName = ObjFile.Name
'*****************************************************
'DON'T UNCOMMENT THIS UNTIL YOU KNOW IT WORKS PROPERLY!!!
'ObjFile.Delete
'*****************************************************
If Not Err then
WriteLog 8," Purge Logs Script has Deleted SucessFully " & ObjSubFolder.name & "\" & tmpObjFileName
Else
WriteLog 16,"Purge Logs Script Error While Deleting " & ObjSubFolder.name & "\" & tmpObjFileName
End If
End If
Set ObjFile = nothing
Next
Set ObjSubFolder = nothing
Next
Set ObjTopFolder = nothing
Set ObjFS = nothing
End Sub

Sub WriteLog(evType,msg)
on error resume next
Err.Clear
objShell.LogEvent evType, msg
End Sub