【文件属性】:
文件名称:清空回收站代码 VB.txt
文件大小:2KB
文件格式:TXT
更新时间:2022-09-26 09:18:30
VB6.0 VB 回收站
VERSION 5.00
Begin VB.Form Form1
Caption = "清空回收站"
ClientHeight = 2595
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 2595
ScaleWidth = 4680
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton Command1
Caption = "清空回收站"
Height = 810
Left = 1020
Style = 1 'Graphical
TabIndex = 1
Top = 840
Width = 1200
End
Begin VB.CommandButton Command2
Caption = "退出"
Height = 810
Left = 2385
TabIndex = 0
Top = 840
Width = 1200
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.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 Form_Load()
'为按钮加载图标
Command1.Picture = LoadPicture(App.Path & "\full.ico")
End Sub
Private Sub Command1_Click()
Dim myval As Long
' 清空回收站
myval = SHEmptyRecycleBin(Form1.hwnd, "", SHERB_NOPROGRESSUI)
If myval <> 0 Then
myval = SHUpdateRecycleBinIcon()
End If
'为按钮加载图标
Command1.Picture = LoadPicture(App.Path & "\empty.ico")
MsgBox "回收站已被清空!", vbInformation, "【提示信息】"
End Sub
Private Sub Command2_Click()
End
End Sub