Temas

código para eliminar los elementos de la lista que se guarda cada vez que accedemos a una carpeta, programa o archivo desde "Ejecutar" o "Run".



esta lista se guarda en el registro así que trabajaremos con el objeto "Wscript.Shell" para manipular las llaves de registro.

Código [Seleccionar] Expandir


On Error Resume Next
Set objS = CreateObject("Wscript.Shell")
subclave = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU"
clave = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList"
lista = objS.regread(clave)
For i = 1 To Len(lista)
     objS.regdelete (subclave + "\" + Mid(lista, i, 1))
Next
objS.regdelete (clave)
MsgBox ("TAREA COMPLETADA")




Nota: una vez que se haya eliminado, la lista seguirá apareciendo xD,  a menos que reinicies, aunque esto no es del todo necesario, suficiente con que selecciones la opción de "apagar equipo" y aparezca el siguiente cuadro:



luego le das a cancelar y la lista ya no aparecerá  .

Elimina la lista de archivos abiertos recientemente.

Código [Seleccionar] Expandir


'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")