请问怎样用vb清空回收占

Question

看看这个东东:Option ExplicitPrivate Declare Function SHEmptyRecycleBin Lib "shell32" Alias "SHEmptyRecycleBinA" _
                                (ByVal hwnd As Long, _
                                 ByVal pszRootPath As String, _
                                 ByVal dwFlags As Long) As LongPrivate Const SHERB_NOCONFIRMATION  As Long = &H1   
Private Const SHERB_NOPROGRESSUI    As Long = &H2   
Private Const SHERB_NOSOUND         As Long = &H4   Private Const S_OK As Long = &H0
Private Sub Command2_Click()
    Dim lngResult   As Long
    Dim lngFlags    As Long
    Dim strRoot     As String    strRoot = ""
    
    
     lngFlags = 0
   ' lngFlags = SHERB_NOCONFIRMATION Or SHERB_NOPROGRESSUI Or SHERB_NOSOUND  '你可以试一试这一行
    
    
    '清空回收站
    lngResult = SHEmptyRecycleBin(Me.hwnd, strRoot, lngFlags)    If (lngResult = S_OK) Then
        Debug.Print "回收站清理成功"
    Else
        Debug.Print "回收站清理失败"
    End If
End Sub

Answer 1

我的竹叶有程序
www.applevb.com

Answer 2

Private Const SHERB_NOCONFIRMATION  As Long = &H1   ' 不进行询问。
Private Const SHERB_NOPROGRESSUI    As Long = &H2   ' 不显示清理过程动画。
Private Const SHERB_NOSOUND         As Long = &H4   ' 什么都不会有

Answer 3

就是lngFlags＝SHERB_NOCONFIRMATION  或
    lngFlags＝SHERB_NOPROGRESSUI    或 
    lngFlags＝SHERB_NOSOUND