Private Declare Function apiSHEmptyRecycleBin Lib  "shell32.dll"  _
    Alias  "SHEmptyRecycleBinA"  (ByVal hWnd As Long, _
    ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Private Declare Function apiSHUpdateRecycleBinIcon Lib  "shell32.dll"  _
    Alias  "SHUpdateRecycleBinIcon"  () As Long

Function EmptyRecycleBin(Optional strRootPathOnly As String, _
    Optional fNoConfirm As Boolean, Optional fNoProgress As Boolean, _
    Optional fNoSound As Boolean) As Boolean
'Работает в Win98 и более свежих!
'Очищается корзина на диске, указанном в strRootPathOnly (допускается
' указание полного пути, включающего диск), или всех корзин на всех
' родных дисках.
'fNoConfirm - выполняется без подтверждения;
'fNoProgress - табло выполнения не отражается;
'fNoSound - звуковой сигнал по завершении не выдается.
'Возвращает True, если все благополучно.
On Error Resume Next
Dim lngFlags As Long, lngRet As Long
Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4

 If fNoConfirm Then lngFlags = SHERB_NOCONFIRMATION
 If fNoProgress Then lngFlags = lngFlags Or SHERB_NOPROGRESSUI
 If fNoSound Then lngFlags = lngFlags Or SHERB_NOSOUND

    lngRet = apiSHEmptyRecycleBin(Me.hWndOwnerWindow, _
                                        strRootPathOnly, lngFlags)
 If Err <>  0  Then
    Err.Clear
    Exit Function
 End If
 If lngRet =  0  Then
    Call apiSHUpdateRecycleBinIcon
    EmptyRecycleBin = True
 End If
End Function