[ゴミ箱を空にする]

ゴミ箱を空にします。
削除の確認ウィンドウが表示されます。
日本語ウィンドウズ用です。

【ソースコード】

[tips0135.vbs]
Option Explicit
On Error Resume Next

Dim objShell        ' Shell オブジェクト
Dim objFolder       ' フォルダ情報

Set objShell = WScript.CreateObject("Shell.Application")
If Err.Number = 0 Then
    Set objFolder = objShell.NameSpace(10)
    objFolder.Items.Item.InvokeVerb "ごみ箱を空にする(&B)"
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFolder = Nothing
Set objShell = Nothing