Made one small change to the delete line and now it works great. Tested it on WinXPPro SP3 and kix 4.60 and it works as expected.

Might be usefull as a UDF. EmtyRecycleBin() or something.

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)

- Chuck Norris once sold ebay to ebay on ebay.