Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
May 5, 2003

EmptyRecycleBin - Empty all the files in the Recycle Bin

<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
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date