Borrado selectivo de proyectos recientes

[YAcosta]

Situación
Cuando abrimos el IDE y vamos a Abrir Proyecto y luego a la lengüeta Recientes tenemos alli todos los proyectos que hemos abierto.

Sucede que a veces probamos proyectos que descargamos de la web y proyectos que los amigos publican aqui y nuestra lista de Recientes crece tanto que fastidia un poco scrollear para encontrar un proyecto especifico.

Solicitud
Deseo borrar algunos de los Recientes, a modo de limpieza - Si, ya vi ese proyecto, ya no lo voy a volver a ver -, entonces ¿Que hacer?

Solución Fallida
Entiendo que habría que ir al registro de Windows (Naturalmente el VB6 esta cerrado) y en esta parte:

HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0\RecentFiles

Y seleccionar los que queramos borrar, en mi caso tenia mas de 40 y me borre como 30 dejando 10 lindos proyectos recientes a los cuales volveré peroooo....

Cuando abro el VB6 ahora me muestra UN solo proyecto reciente, el ultimo.

Re-Intento
Quizá me equivoqué, es probable, siempre me equivoco, para estar seguros hice esto:

- Cerré VB6
- Limpié todo la lista de recientes en el regedit, cerré regedit
- Abrí VB6 varios proyectos (mas de 8 proyectitos)
- Cerré VB6
- Abrí Regedit y borre UNO solo de los proyectos recientes, no los mas de 8, cerré regedit
- Abrí VB6 y ahora fue peor porque me quedo limpio la lista de recientes, ni un proyecto reciente.

Imploro:
¿Alguien sabe como puedo corregir eso? que pueda borrar de la lista de recientes solo algunos proyectos.

Gracias

[YAcosta]

[yokesee]

este programa hace lo que quieres yo lo probe.
aqui es la pagina oficial
http://www.zealsoftstudio.com/vbrecent/
este es el mismo pero sin el instalador e cogido el exe para si no lo quieres instalar.
http://www.mediafire.com/download/9a2tx70emp4nz5a/RFiles.exe

un saludo

[YAcosta]

Ok  gracias, lo voy a checar.

[Albertomi]

Estimado YAcosta


Debes de tener en cuenta que VB6 es una aplicación de Win32 (32 bit), por ello debes de hacer tu búsqueda en el Registry (regedt32.exe) que usan las aplicaciones Win32 el cual se encuentra en la siguiente ruta: C:\Windows\SysWOW64\regedt32.exe


Por lo tanto, la ruta completa al editor del Registry de las aplicaciones Win32 sería la siguiente:
    C:\Windows\SysWOW64\regedt32.exe


NOTA: Estoy presumiendo que estas en un sistema Win64 (64 bit)

Saludos, desde algún lugar de Lima-Perú

[YAcosta]

Muchas gracias Albertomi.

Mi error fue no especificar que la maquina es WindowsXP, no Seven ni superior, por tanto no tengo la ruta del SysWOW64.

Saludos

[yokesee]

te funciono el programa que te pase
un saludo

[YAcosta]

Aun no lo pruebo, estoy en sesión de foto, al rato lo checo, gracias

[YAcosta]

te funciono el programa que te pase
un saludo

Listo, comprobado, tu solución funciona perfectamente, al principio me borraba todo pero era porque no entendía como funcionaba, luego que vi que solo era cuestión de usar los checkboxes todo fluyo bien, probé de varias formas. El plus que me gusto es que puedo reorganizar el orden en el que aparecen los proyectos recientes.

Gracias por el alcance, el tema esta resuelto y usare en adelante tu solución, aunque bien me gustaría saber (por cultura general) porqué cuando lo hacia a mano me fallaba.

Saludos y gracias

[yokesee]

hola creo que e dado con tu problema haciendo pruebas me e dado cuenta en el regedit que si no sigues el orden de números se borran
muy seguramente no tuviste en cuenta la columna nombre y no los ordenaste.

un saludo

[YAcosta]

Asi es, si bien es cierto si me fijé en la columna de la izquierda y su numeración simplemente no se me ocurrió que hubiese un orden para el borrado... si esa es la respuesta bien, es bueno saberlo y si es así entonces tampoco me sirve mucho porque los proyectos que me interesan no están en secuencia, posiblemente la solución sea editar esos números para crear un orden secuencial y el regedit no se pajaree.... me quedo con el programa que enviaste.

Gracias por el tiempo, ahora sabemos algo mas.

[Albertomi]

Estimado YAcosta


Prueba con esté link


http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=74679&lngWId=1&txtForceRefresh=6920160354139983






Saludos, desde algún lugar de Lima-Perú

[yokesee]

hola ya haciendo pruebas me tome el tiempo de hacerte este programilla
te lista las claves que hay en HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0\RecentFiles
no se si habra alguna api que te devuelva todas las que hay por eso improvise y puse que listase todas del 1 al 100 por ejemplo,
luego te las añade a un listbox que hay simplemente tu ya sabras maneras para ordenarlo.
y luego el boton lo que hace es borra HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0\RecentFiles
y escribe todas las claves del listbox utilizando el indice de cada item del listbox como numero.

Código: [Seleccionar]

Private Sub Form_Load()
    Dim texto As String
    For i = 1 To 100
        texto = Registry_Read("HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0\RecentFiles\", i)
        If Not texto = "" Then List1.AddItem texto
    Next
End Sub
Private Sub Command1_Click()
    Registry_delete "HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0\RecentFiles\"
    Registry_write "HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0\RecentFiles\", ""
    For i = 0 To List1.ListCount - 1
        Registry_write "HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0\RecentFiles\" & (i + 1), List1.List(i)
    Next
End Sub
Private Function Registry_Read(Key_Path, Key_Name) As Variant
    On Error Resume Next
    Dim Registry As Object
    Set Registry = CreateObject("WScript.Shell")
    Registry_Read = Registry.RegRead(Key_Path & Key_Name)
End Function

Private Sub Registry_write(Key_Path, value)
    On Error Resume Next
    Dim Registry
    Set Registry = CreateObject("WScript.Shell")
    Registry.RegWrite Key_Path, value, "REG_SZ"
End Sub
Private Sub Registry_delete(Key_Path)
    On Error Resume Next
    Dim Registry As Object
    Set Registry = CreateObject("WScript.Shell")
    Registry.RegDelete (Key_Path)
End Sub


un saludo perdón esta echo deprisa y corriendo no se si habrá alguna manera de optimizar el codigo

[yokesee]

a por cierto muy importante cuando hagas los cambios ten cerrado el editor vb6 porque al cerrar el ide se volverán añadir los recientes que tenia el guardados o se añadirá alguno mas que no quieras haz pruebas

[YAcosta]

Estimadisimo yokesee, aprecio muchísimo el tiempo tomado, pero para no dejar el tintero abierto aclaro que yo solo quería saber el por qué (respuesta que nos regalaste) del problema y una solución (la que también ya me diste).

Si bien es muy interesante el código que envías en lo personal no lo podré seguir por diversos temas personales (alejamiento de la programación principalmente), sin embargo considero que el aporte es valioso y seguro que a varios colegas les servirá, comento esto porque no quería dejarte sin una respuesta de mi parte.

Fuerte abrazo.