教程:打造清理回收站工具
工具:vb6.0
用 SHEmptyRecycleBin 这个API函数
在窗体上创建一个command ,然后输入下面的代码..
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
Private 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
该文转摘www.benkui.com,复制请保留此行.