清空回收站 1.frm

来自「Windows API函数,希望大伙有用哦」· FRM 代码 · 共 52 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
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 Declare Function SHQueryRecycleBin Lib "shell32.dll" Alias "SHQueryRecycleBinA" (ByVal pszRootPath As String, pSHQueryRBInfo As SHQUERYRBINFO) As Long
Private Type ULARGE_INTEGER
  LowPart As Long
  HighPart As Long
End Type
Private Type SHQUERYRBINFO
  cbSize As Long
  ReSize As ULARGE_INTEGER
  ReNumItems As ULARGE_INTEGER
End Type
Private Sub Form_Load()
  Dim RBinInfo As SHQUERYRBINFO, Msg As VbMsgBoxResult
  Dim Reg As Integer, I As Integer
  Dim FileNumber As Integer, FileResize As Long
  Dim Driver(4) As String
  RBinInfo.cbSize = Len(RBinInfo)
  Driver(1) = "C:": Driver(2) = "D:": Driver(3) = "E:": Driver(4) = "F:"
  For I = 1 To 4
    SHQueryRecycleBin Driver(I), RBinInfo
      FileNumber = FileNumber + RBinInfo.ReNumItems.LowPart
      FileResize = FileResize + RBinInfo.ReSize.LowPart
  Next I
  Reg = MsgBox("资源回收站中包含 " + CStr(FileNumber) + " 个文件 " + CStr(FileResize) + " 字节数据         ", vbExclamation + vbYesNo)
  If Reg = 7 Then
   Unload Me
   End
  End If
  SHEmptyRecycleBin Me.hwnd, vbNullString, 0
  SHUpdateRecycleBinIcon
  End
End Sub