＜ 使用用途 ＞
ゴミ箱の中身を削除します。
削除する時は全ドライブ、指定ドライブの種類を選べます。
今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ ダウンロード ・・・ 下に書いてあるサンプルソースと同じです
＜ 説明 ＞
ＡＰＩ関数のSHEmptyRecycleBinを使用します。
サンプルではコマンドボタンを押したときに全ドライブのゴミを削除するという処理です。
SHEmptyRecycleBin ＝＞ゴミ箱の中身を削除する。
＜引数＞
hWnd ：ウィンドウのハンドル
pszRootPath ：削除するドライブの指定、全てのドライブ指定時は ""
dwFlags ：削除する時のオプション設定（例：音を鳴らす等）
＠戻り値＠
&H0が戻った場合は成功
< ＳＡＭＰＬＥ ＞
'このサンプルソースは全てフォーム１つだけの処理です。
’フォーム内に宣言して下さい
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 MODORITI As Long
Dim Drive As String
'ドライブの種類設定(例：Drive = "C:\")、””は全ドライブ指定です。
Drive = ""
'ごみ箱を空にします
MODORITI = SHEmptyRecycleBin(hwnd, Drive, 0)
If (MODORITI = &H0) Then
'削除成功
MsgBox "成功しました"
Else
'削除失敗
MsgBox "失敗しました"
End If
End Sub