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

See also  Does It Make Sense to Splurge on a Laptop?

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist