VB清空指定驱动器的回收站

文章作者:中山市飞娥软件工作室「Feiesoft.com」  浏览次数:1362 次  更新日期:2014-03-16

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'清空指定驱动器的回收站
'参数:
'hwnd:父窗口句柄,可以为NULL
'pszRootPath:将要清空的回收站的地址,如果为NULL,则清空所有驱动器上的回收站。
'dwFlags:等于下列的常数的组合:
Private Const SHERB_NOCONFIRMATION = &H1    '没有对话框确认对象的删除将显示
Private Const SHERB_NOPROGRESSUI = &H2      '没有对话框指示进度将显示
Private Const SHERB_NOSOUND = &H4           '没有声音将在操作完成时
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" _
                (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Private Sub Command1_Click()
    Dim result As Long
    result = SHEmptyRecycleBin(0, "", SHERB_NOCONFIRMATION Or SHERB_NOPROGRESSUI Or SHERB_NOSOUND)
    If result = 0 Then
        MsgBox "清空回收站成功!"
    End If