I need to delete files from the C:\Company\Temp directory that are older than 120 days. I have to perform this on about 125 PCs. The VBScript keeps bombing on line 27, character 1, where my objFile is setup. When I remove this line it tells me I need to use objFile. I'm missing something and need a little help. dtmDate = Date - 120 strDay = Day(dtmDate) If Len(strDay) < 2 Then strDay = "0" & strDay End If strMonth = Month(dtmDate) If Len(strMonth) < 2 Then strMonth = "0" & strMonth End If strYear = Year(dtmDate) strTargetDate = strYear & strMonth & strDay strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set FileList = objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Name='C:\Company\Temp'} Where " _ & "ResultClass = CIM_DataFile") For Each objFile in FileList strDate = Left(objFile.CreationDate, 8) If strDate < strTargetDate Then objFile.Delete End If Next

It looks all right to me. What error message are you getting? When you say line 27, do you mean the line that contains the For Each statement?

Hey Klint... Line 27 is For Each objFile In FileList The error is as follows: Script: Obviously the path of my script Line: 27 Char: 1 Error: 0x80041002 Code: 80041002 Source: (null)

If you just google for "80041002" you will find that this error code means object not found. In your case it relates to FileList, not objFile. There must be something wrong with your Set FileList = ... statement. It could be that the directory C:\Company\Temp doesn't exist. Try it first with C:\ and see if you get the same error.

You were right! I made my directory c:\ and the script worked fine. C:\Company\Temp didn't exist on the PC I was testing with. Man do I feel stupid LOL. The simplest things will get you everytime. Thanks for your help Klint!