Mensaje enviado por "M. Alejandro Esteban" <maesteban@gruposp.com>

Las dos soluciones vienen de la página ethek: www.ethek.com
Si no conoceis el sitio, es muy recomendable.

Las primera es una copia de sus páginas. La segunda es mía, pero adaptación de cómo lo contaban desde su página para hacerlo a mano (y no a través de código), lo que pasa que ahora no la puedo encontrar, así que te lo mando en código, pero está muy claro cómo es "a mano":

========================================================
PRIMER MÉTODO (http://www.ethek.com/sisope/windows95/trucos/curiosos/27.asp)
========================================================
Cambiar los iconos de las carpetas

Muchas veces hemos intentado cambiar los iconos de las carpetas o de otros elementos que por defecto trae el Windows 95. La idea, en principio es simple: Muchos de los iconos que por defecto traen algunos archivos se pueden cambiar simplemente desde cualquier carpeta, mediante el menú ver, luego opciones... , tipos de arhivos y por último editar, e inmediatamente despues selecionar cambiar icono. Pero esto no siempre nos vale, sobre todo si queremos cambiar los iconos de por ejemplo, las carpetas, el menú de Inicio... Para ello el truco es el siguiente:

Lo primero que tenemos que hacer es saber el icono que queremos cambiar... por ejemplo, para cambiar el icono de las carpetas, debemos ejecutar el registro, irnos a la seccion HKEY_CLASSES_ROOT\Folder\DefaultIcon en la parte derecha aparecerá (preterminado) "C:\WINDOWS\SYSTEM\shell32.dll,3", la primera idea.. que no funciona :) es ir y cambiar directamente el valor de la cadena para poner el icono que queremos. Pero lo que tenemos que hacer es ir a la sección

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer y crear una nueva clave, Shell Icons, después creamos un nuevo valor de la cadena, con el número del icono indicado en el DefaultIcon que queremos cambiar, en nuestro caso el 3, seleccionamos este valor, pulsamos 2 veces y en Información del valor introducimos el path del archivo que tiene el icono que queremos poner, con su numero correspondiente. En mi caso es:

Nombre | Datos
(Predeterminado) (valor no establecido)
3 "C:\Iconos\Folders.icl,70"

Bueno.. ya hemos hecho lo más difícil. Pero aún queda algo más. Windows 95 guarda una cache de Iconos en el directorio de instalación del 95, llamado ShellIconCache, este archivo está oculto. Debemos de borrar este archivo para que los cambios surjan efecto, pero hay que borrarlo fuera de la sesión de Windows.. osea.. que hay que reiniciar en modo MS-DOS, quitar los atributos al archivo (en MSDOS este se llama shelli~1), borrarlo y reiniciar el entorno grafico (hoy en dia llamado sistema operativo.. :P) y ya está, tenemos nuestro icono favorito como icono de carpeta.. :) De igual manera
con el resto de los iconos del 95.

PD: Importante, si tenemos la utilidad TWEAK UI de las Powertoys de Microchof (si, MICROCHOF... ) podemos borrar el cache de iconos desde la pestaña Repair, con el botón Rebuid Icons. Y si tenemos el MicroAngelo.. todo esto nos lo hace ese fantástico programa.. pero conviene saber hacer las cosas "a pelo".
¡¡Suerte y hasta otra!!



========================================================
SEGUNDO MÉTODO
========================================================
Private Sub IntroducirIcono()

    dirApp= App.Path

    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.FileExists(dirISOpyme & "\desktop.ini") Then
        Kill dirApp& "\desktop.ini"
    End If

    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.GetFolder(dirApp).Attributes = System

    Set miLinea = fs.CreateTextFile(dirApp& "\desktop.ini", False)
    miLinea.WriteLine ("[.ShellClassInfo]")
    miLinea.WriteLine ("IconFile=" & dirApp& "\MiIcono.ico")
'dirección del icono que queremos poner
    miLinea.WriteLine ("IconIndex = 0")
    miLinea.WriteLine ("ATTRIB +S " & dirApp) 'Si la
carpeta no es de Sistema, no funciona.
    miLinea.Close
    Set miLinea = Nothing
    Set fs = Nothing

End Sub

Un saludo,
M. Alejandro Esteban




> -----Mensaje original-----
> De: Santiago Fumanal [mailto:sfpaul@mail.fujitsu.es]
> Enviado el: viernes, 19 de mayo de 2000 12:21
> Para: vbESP
> Asunto: (VB-ESP) (p)Cambio de icono en un carpeta
>
>
> pues eso ,En vez de tener el tipico icono amarillo.Sabíes como se puede
> cambiar.
>
> Gracias
>


------------------------------------------------------------------------
Up to 60% OFF food!
Buy Now and Shipping is Free.
http://click.egroups.com/1/4016/6/_/5584/_/958733835/
------------------------------------------------------------------------

____________________________________________________________________________________________________
Si quieres darte de baja de la lista manda un mensaje a visualbasic-esp-unsubscribe@egroups.com desde la cuenta que quieres dar de baja.

No envies ficheros de más de 25 Kb a la lista, por favor.