batman

Dim objFSO, Path
Set objFSO = CreateObject("Scripting.FileSystemObject")
Path = "C:\Documents and Settings\Administrator\Recent"
For Each File In objFSO.GetFolder(Path).Files
  objFSO.DeleteFile File
Next
Set objFSO = Nothing
WScript.Echo "OK"COPY