[求助]清空回收站的API是什么？
如题。。。
这样
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编辑过]
