doesn't delete Folders in the recycle bin...

this one does, but doesn't distinguish between files and folders.
Allthough it seems a bit brute it doesn't choke \:\)

 Code:
Dim $objFSO, $intRB, $objShell, $objFolder, $objFoldItm, $i
$objFSO = CreateObject("Scripting.FileSystemObject")
$intRB = 10
$objShell = CreateObject("Shell.Application")
$objFolder = $objShell.NameSpace($intRB)
$objFoldItm = $objFolder.Items
For $i = 0 to $objFoldItm.Count - 1
	$objFSO.DeleteFile($objFoldItm.Item($i).Path, 1)
	$objFSO.DeleteFolder($objFoldItm.Item($i).Path, 1)
Next


I may come up with a better way later (or may not ;\) )
_________________________