Shared Function _ SHEmptyRecycleBin(ByVal hWnd As Integer, ByVal pszRootPath As String, _ ByVal dwFlags As Integer) As IntegerEnd 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 soundsSub 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

