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:
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á .