This is a script written in VBScript designed for execution with Microsoft® Windows® Script Host (WSH). It empties the recycle bin automatically. Several alternate solutions are available from WSH Bazaar and Windows-Script. In the first case, a ActiveX control is used and must be registered using regsvr32. The second solution simply does not work. It demonstrates how to send a single file to the recycle bin. I think of this script as a hack being that it creates a second temporary script and uses the SendKeys. As a result, it exhibits the power of WSH when running Windows automation tasks.

Download Empty Recycle Bin (vbs file)

  1. Set oWSH = CreateObject ("WScript.Shell")
  2. Set oFSO = CreateObject ("Scripting.FileSystemObject")
  3. Function ScriptPath
  4.   ScriptPath = oFSO.GetParentFolderName(WScript.ScriptFullName) & "\"
  5. End Function
  6. Sub Sleep(x)
  7.   Start = CInt (Second (time))
  8.   i = 0
  9.   Do
  10.     i = i + 1
  11.   Loop While CInt (Second (time)) < Start + CInt (x)
  12. End Sub
  14. Set fEBin = oFSO.CreateTextFile(ScriptPath & "Tmp_EBin.vbs",2)
  15. fEBin.writeline "Set oFSO = CreateObject (""Scripting.FileSystemObject"")"
  16. fEBin.writeline "Set oShell = CreateObject (""Shell.Application"")"
  17. fEBin.writeline "Set oFolder = oFSO.GetFolder(""C:\RECYCLER"")"
  18. fEBin.writeline "If (Not oFolder Is Nothing ) Then "
  19. fEBin.writeline "   For Each oFldr In oFolder.SubFolders"
  20. fEBin.writeline " Set oNS = oShell.NameSpace(oFldr.Path)"
  21. fEBin.writeline " If (Not oFolder Is Nothing ) Then "
  22. fEBin.writeline "   oNS.Self.InvokeVerb(""Empty Recycle &Bin"")"
  23. fEBin.writeline "   Set oNS = Nothing "
  24. fEBin.writeline "   Exit For "
  25. fEBin.writeline " End If "
  26. fEBin.writeline " Next "
  27. fEBin.writeline " Set oFolder = Nothing "
  28. fEBin.writeline "End If "
  29. fEBin.writeline "Set oFSO = Nothing "
  30. fEBin.writeline "Set oShell = Nothing "
  31. fEBin.close
  32. iReturn = oWSH.Run ("""" & ScriptPath & "Tmp_EBin.vbs""", 0, False )
  33. Sleep 2
  34. 'MsgBox iReturn
  35. iReturn = oWSH.AppActivate("Confirm Multiple File Delete")
  36. 'MsgBox iReturn
  37. If iReturn = "False " Then iReturn = oWSH.AppActivate("Confirm File Delete")
  38. If iReturn = "True " Then oWSH.SendKeys("{ENTER}")
  39. '* Delete temp file
  40. oFSO.DeleteFile ScriptPath & "Tmp_EBin.vbs"
  41. Set oWSH = Nothing
  42. Set oFSO = Nothing

Download Empty Recycle Bin (vbs file)