' Dan Rasmussen
' Saturday, June 1st, 2002

Option Explicit
Dim WshShell                          ' Windows Script Host object
Dim fso, recentFolder, individualFile ' File system object, Recent Documents folder, and counter

Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set recentFolder = fso.GetFolder(WshShell.SpecialFolders("Recent"))

For Each individualFile In recentFolder.Files    
  fso.DeleteFile (individualFile)
Next

'MsgBox VarType(WshShell)