清空回收站示例|清理回收站代码

时　间:2013-12-27 09:30:50
作　者:缪炜   ID：24010  城市：江阴
摘　要:Accessoft-清空回收站示例
正　文:

点击下载此示例

'清空回收站代码如下=============================

Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" _
                Alias "SHEmptyRecycleBinA" _
                (ByVal hwnd As Long, _
                ByVal pszRootPath As String, _
                ByVal dwFlags As Long) _
                As Long

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

'通过按钮单击事件执行清空回收站代码如下=================

Private Sub Cmd_clear_Click()
    Dim result As Long
    result = SHEmptyRecycleBin(0, "", SHERB_NOCONFIRMATION _
                                   Or SHERB_NOPROGRESSUI _
                                   Or SHERB_NOSOUND)
    MsgBox "清理成功", vbInformation
End Sub