form1.frm

大量优秀的vb编程

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "清空回收站"
   ClientHeight    =   2904
   ClientLeft      =   48
   ClientTop       =   348
   ClientWidth     =   4104
   LinkTopic       =   "Form1"
   ScaleHeight     =   2904
   ScaleWidth      =   4104
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "清空回收站"
      Height          =   612
      Left            =   960
      TabIndex        =   0
      Top             =   960
      Width           =   1092
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SHEmptyRecycleBin Lib "shell32" Alias _
    "SHEmptyRecycleBinA" (ByVal hWnd As Long, _
    ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
    
Private Sub Command1_Click()
    Dim i As Long
    i = EmptyBin(True)
End Sub
Public Function EmptyBin(Silent As Boolean, Optional hWnd As Long, _
Optional Drive As String) As Long
    Dim rc As Long
    Dim dwFlags As Long
    
    If IsNumeric(hWnd) = False Then hWnd = 0
    dwFlags = SHERB_NOCONFIRMATION + SHERB_NOSOUND
    
    If Silent Then
        dwFlags = deflags + SHERB_NOPROGRESSUI
    End If
    
    rc = SHEmptyRecycleBin(hWnd, ByVal Drive, dwFlags)
End Function