CodeItBetter Programming Another VB Programming Blog

'System & API - How to Empty Recycle Bin
Option Explicit
 
Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" _
    (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long
 
Public Sub EmptyRecycleBin()
    SHEmptyRecycleBin 0&, vbNullString, SHERB_NOCONFIRMATION Or SHERB_NOPROGRESSUI Or SHERB_NOSOUND
    SHUpdateRecycleBinIcon
End Sub