I decided to check the size of some of my logs on specific servers. Well, as it turns out there were 4GB of logs! I needed a script that would delete the files after so many days. I was really lazy and looked up the recursion portion (MS Scripting Guys)! You can point this script anywhere and it will delete any files older then the days you specify.

------------Copy Everything Below This Line------------

'Delete Old Files (IIS)

'Created by Chey "The Dean of Mean" Harden =P

On Error Resume Next

Dim arrFolders()

intSize = 0

Const MaxDays = 45 'This is the created Date

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

strFolderName = "C:\WINNT\system32\LogFiles"

Set colSubfolders = objWMIService.ExecQuery _

    ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _

        & "Where AssocClass = Win32_Subdirectory " _

            & "ResultRole = PartComponent")

ReDim Preserve arrFolders(intSize)

arrFolders(intSize) = strFolderName

intSize = intSize + 1

For Each objFolder in colSubfolders

    GetSubFolders strFolderName

Next

Sub GetSubFolders(strFolderName)

    Set colSubfolders2 = objWMIService.ExecQuery _

        ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _

            & "Where AssocClass = Win32_Subdirectory " _

                & "ResultRole = PartComponent")

    For Each objFolder2 in colSubfolders2

        strFolderName = objFolder2.Name

        ReDim Preserve arrFolders(intSize)

        arrFolders(intSize) = strFolderName

        intSize = intSize + 1

        GetSubFolders strFolderName

    Next

End Sub

For Each strFolder in arrFolders

    'WScript.Echo strFolder

                        Set objFSO = CreateObject("Scripting.FileSystemObject")

                        Set objFolder1 = objFSO.GetFolder(strFolder)

                        Set colFiles = objFolder1.Files

                        For Each objFile in colFiles    

                                    'WScript.Echo objFile

                                    If DateDiff("d",objFile.DateCreated,now) >= MaxDays Then                    

                                                objFSO.DeleteFile(objFile.Path)       

                                    End If            

                        Next

Next   

------------Copy Everything Above This Line------------

1.      Const MaxDays = 45 Edit this line to remove the files older then this. BTW this is the created date

2.      Edit this line strFolderName = "C:\Windows\system32\LogFiles" to represent where you want the recursion to start.

3.      Schedule the Task to run. DONE!

***Make sure NO word wrap is happening in your script

This information is provided "AS IS" with no warranties expressed or implied.

---

Add this page to your favorite Social Bookmarking websites