資訊好好玩

0愛的鼓勵 0訂閱站台

來源:阿晴

'Shell32.dll 中有一個函式可以清除資源回收筒中的檔案:
'必須是 4.71 版之後的Shell32.dll 才有提供此 Function
Private Declare Sub SHEmptyRecycleBin Lib "shell32" (ByVal hwnd As Long, ByVal pszRootPath _
            As String, ByVal dwFlags As Long)

'hwnd: 雖然 MSDN 上的說明是傳入一個 Null 值, 實際上 如果沒有用到這 param 應該傳入 0
'pszRootPath: Recycle Bin 所在 path, 若為 empty string 或 NULL, 則清除所有回收筒
'dwFlags: 有三個值可以設,
'SHERB_NOCONFIRMATION: 不出現清除資源回收筒dialog
'SHERB_NOPROGRESSUI: 沒有刪除進度 progress bar
'SHERB_NOSOUND: 沒有音效
Private Const SHERB_NOCONFIRMATION = 1
Private Const SHERB_NOPROGRESSUI = 2
Private Const SHERB_NOSOUND = 4

Private Sub Command1_Click()
Dim ReCyclePath As String
ReCyclePath = "c:\Recycled"
Call SHEmptyRecycleBin(0, ReCyclePath, 0)
End Sub