vb打造清理回收站工具

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

Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long
Private Const SHERB_NOCONFIRMATION = &H1
Private Const SHERB_NOPROGRESSUI = &H2
Private Const SHERB_NOSOUND = &H4

Private Sub Command1_Click()
 Dim retval As Long  return value
    清空回收站, 确认
    retval = SHEmptyRecycleBin(RecycleBin.hwnd, "", SHERB_NOPROGRESSUI)
    若有错误出现，则返回回收站图示
        If retval <> 0 Then  error
        retval = SHUpdateRecycleBinIcon()
    End If
End Sub

Private Sub Command2_Click()
    Dim retval As Long  return value
    清空回收站, 不确认
    retval = SHEmptyRecycleBin(RecycleBin.hwnd, "", SHERB_NOCONFIRMATION)
      若有错误出现，则返回回收站图示
    If retval <> 0 Then  error
        retval = SHUpdateRecycleBinIcon()
    End If
    Command1_Click
End Sub