Mit VBS oder Batch Ordner durchsuchen

[cyrus the virus 10]

Hallo Boarder,

 

ich bräuchte da mal ein Script oder ne Batchdatei, mit dem ich Ordner auf bestimmte Unterordner durchsuchen kann (Suchteife min. 15 Unterordner) und die gefundenen Unterordner dann löschen kann.

Es sollen NUR die Unterordner gelöscht werden!!!

 

Hier ein Beispiel VBS:

 

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

 

Set colFolders = objWMIService.ExecQuery _

("Select * from Win32_Directory where Name = 'd:\\tmp'")

 

For Each objFolder in colFolders

errResults = objFolder.Delete

Next

 

Das löscht ober nur den angegebenen Ordner und keine Unterordner

 

Boardsuche habe ich bereits verwendet. :D

 

Dank & Gruß

Cyrus