Очистка корзины

[AnGI_Burn]

Здравствуйте, как можно отчистить корзину на всех дисках?
Я пробовал с помощью Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long но чё-то как-то не получилось... Может кто подкинет простенький примерчик?

[Viper]

Как пробовал, что не срослось?

[AnGI_Burn]

Вот примерно так:

Код: Выделить всё

retval = SHEmptyRecycleBin(Form1.hWnd, "", SHERB_NOPROGRESSUI)

В корзинке как был мусор, так он там и остался...

[Gemini]

У меня вот так всё работает:

Код: Выделить всё

SHEmptyRecycleBin Me.hwnd, "D:\", 1


просто перебирай RootPath

[AnGI_Burn]

Дааа блин... Явно в прошлый раз чё-то нитак сделал...
Вот так работает...

Код: Выделить всё

SHEmptyRecycleBin Me.hwnd, "", 1

Спасибо всем!!!