Dim objfso, objStartingFolder, objSubFolder, strStartingdirectory, iDaysBack

strStartingDirectory = "d:\FOM\FOM_Job_Logs\Archive\"
iDaysBack = -30

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