Dim DirectoryStub,RetainDays

DirectoryStub  	= WScript.Arguments(0)
RetainDays  	= WScript.Arguments(1)

Main DirectoryStub,RetainDays

Sub Main (ByVal DirectoryStub, ByVal RetainDays)

   Dim objfso, objStartingFolder, objSubFolder, strStartingdirectory, iDaysBack

   strStartingDirectory = DirectoryStub
   iDaysBack = RetainDays

   Set objfso = CreateObject("Scripting.FileSystemObject")

   Set objStartingFolder = objfso.GetFolder(strStartingDirectory)

   For Each objSubFolder In objStartingFolder.subfolders

	If objsubfolder.Datecreated <= DateAdd("d", iDaysBack, Date()) Then
		objsubfolder.Delete 
	End If

   Next

   Set objsubfolder = Nothing
   Set objstartingfolder = Nothing
   Set objfso = Nothing

End Sub