long running query

[scrsadmin]

I'm trying to search for subfolders that start with the letter R in a C:\Program Files\iafolder\TempFiles and then delete only the one found. I created this but it seems to run long. It finds three, deletes three and then i get an hour glass for about 5 more minutes before it goes to the next step. Any ideas?

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory where Name Like '%C:\\Program Files\\iafolder\\TempFiles\\r%'")
For Each objFolder in colFolders
WScript.Echo "Name: " & objFolder.Name
objFSO.DeleteFolder objFolder.Name
WScript.Echo "Name: " & objFolder.Name
Next

 

[xwb]

Can't you just use

Dim fso
set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder "C:\Program Files\iafolder\TempFiles\r*"

 

[dm4ever]

Just to add a reference to was xwb has suggested:

http://msdn2.microsoft.com/en-us/library/ca0at0xh.aspx

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[scrsadmin]

I did the fso.DeleteFolder "C:\Program Files\iafolder\TempFiles\r*" but if there is no folder with that criteria then I get a big fat error splashed on the screen. I don't want the user to know that we are doing anything. So by doing it the way I set up it finds them if the folder exists and then deletes them. End result no error splashed on the screen if the folder doesn't exist.

 

[PHV]

Have a look at the On Error instruction ...