VBScript: ごみ箱を空にする

ごみ箱を空にする。(XP)
http://scripting.cocolog-nifty.com/blog/2007/12/post_df8d.html

引用。XPで確認済み。

Set fso=CreateObject("Scripting.FileSystemObject")
Set Shell=CreateObject("Shell.Application")
Set Folder=Shell.NameSpace(10)
For Each FolderItem In Folder.Items()
  If fso.FileExists(FolderItem.Path) Then
    fso.DeleteFile FolderItem.Path,True
  ElseIf fso.FolderExists(FolderItem.Path) Then
    fso.DeleteFolder FolderItem.Path,True
  End If
Next
If Folder.Items().Count=0 Then
  Set sFolder=Shell.NameSpace(fso.GetParentFolderName(WScript.ScriptFullName))
  Folder.MoveHere sFolder.Items().Item(WScript.ScriptName)
  Do While Not sFolder.Items().Item(WScript.ScriptName) Is Nothing
    WScript.Sleep 100
  Loop
  sFolder.MoveHere Folder.Items().Item(0)
End If