'creacion de objetos a utilizar
Set objS = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'define la ruta de la carpeta en donde se guardan los accesos
'directos a los archivos y carpetas abiertos recientemente
temp = objS.specialfolders("Recent") + "\"
'toma posesion de la carpeta
Set recent = objFSO.GetFolder(temp)
'un bucle que pasara por cada archivo 
'que hay en la carpeta
For Each f In recent.Files
'elimina el archivo(acceso directo)
objFSO.DeleteFile (f.Path)
'sigue con el proximo archivo
Next 
MsgBox ("TAREA COMPLETADA")