devxlogo

EmptyRecycleBin – Empty all the files in the Recycle Bin

EmptyRecycleBin – Empty all the files in the Recycle Bin

 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

devx-admin

Share the Post: