vb制作清除回收站的程序

用 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

一条代码：
shel