Binaryworld - EmptyRecycleBin - Empty all the files in the Recycle Bin ... [ VB.net -> Windows ]

<System.Runtime.InteropServices.DllImport("shell32.dll")> Shared Function _
  SHEmptyRecycleBin(ByVal hWnd As Integer, ByVal pszRootPath As String, _
  ByVal dwFlags As Integer) As Integer
End Function

' Empty all the files in the Recycle Bin.
'
' If RootPath is a null string, it affects the Recycle Bin
' of all drives. You can optionally turn off confirmation dialogs,
' progress dialog, and sounds

Sub EmptyRecycleBin(Optional ByVal rootPath As String = "", _
  Optional ByVal noConfirmation As Boolean = True, Optional ByVal NoProgress _
  As Boolean = True, Optional ByVal NoSound As Boolean = True)

  Const SHERB_NOCONFIRMATION = &H1
  Const SHERB_NOPROGRESSUI = &H2
  Const SHERB_NOSOUND = &H4

  ' add a colon and backslash, if missing
  If rootPath.Length > 0 AndAlso rootPath.Substring(1, 2) <> ":\" Then
    rootPath = rootPath.Substring(0, 1) & ":\"
  End If
  ' build the flags argument
  Dim flags As Integer = (noConfirmation And SHERB_NOCONFIRMATION) Or _
    (NoProgress And SHERB_NOPROGRESSUI) Or (NoSound And SHERB_NOSOUND)
  SHEmptyRecycleBin(0, rootPath, flags)
End Sub