这样

Private Const SHERB_NOCONFIRMATION = 1 '执行清空操作时不会给出提示信息
Private Const SHERB_NOSOUND = 4 '执行清空操作时不播放提示音乐

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()
SHEmptyRecycleBin Me.HWND, vbNullString, SHERB_NOCONFIRMATION Or SHERB_NOSOUND '清空回收站（没有提示信息和音乐）
End Sub

[此贴子已经被作者于2007-4-24 12:44:49编辑过]