form1.frm

来自「主要是一些文件操作的技巧」· FRM 代码 · 共 55 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "清空回收站"
   ClientHeight    =   2910
   ClientLeft      =   45
   ClientTop       =   345
   ClientWidth     =   4110
   LinkTopic       =   "Form1"
   ScaleHeight     =   2910
   ScaleWidth      =   4110
   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