Mostrar archivos ocultos rápidamente

He copiado el código pero aparecía con las líneas mal cortadas; he tratado
de formatearlo "intuitivamente", porque apenas sé nada de programación, pero
el depurador me da errores continuos de compilación.
Gracias de todas formas.

Senador

Alezito [MS MVP]" escribió en el mensaje
news:

Te envio un script adjunto, libre de virus aunque algunos antivirus

protestan y su codigo

para que compruebes que es inofensivo, pero que cumple perfectamente con

lo que pretendes:

-Comienzo de codigo-
On Error Resume Next
Set WSHShell=Wscript.CreateObject("Wscript.Shell")

X

=WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\A
dvanced\Hidden

")

If X = "1" Then WshShell.RegWrite
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden",

"2",

"REG_DWORD"
Elseif X = "2" Then WshShell.RegWrite
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden",
"1", "REG_DWORD"
End If

Set WshShell = Nothing
-Final de Codigo--

Funcionara con doble clic y deberas actualizar la carpeta en cuestion para
que el cambio tenga efecto.

Si quieres automatizar el proceso, puedes asociarlo a alguna combinacion
de teclas, te dejo un TIP que publique precisamente ayer en estos foros:

[TIP XP] Uso de la tecla "Alt" en la apertura directa de aplicaciones

Si queremos automatizar la apertura de algunas de nuestras aplicaciones
con el teclado, podremos asociarlo a una simple combinacion de las teclas
"Ctrl+Alt"

Lo primero que haremos es crear un acceso directo de la aplicacion que
queremos abrir, para ello clic derecho del raton sobre el ejecutable de la
aplicacion y seleccionamos "crear acceso directo".

IMPORTANTE: Deberemos colocar dicho acceso directo en el escritorio.

Realizamos de nuevo clic derecho del raton, esta vez, sobre el acceso
directo, Propiedades - Tecla de metodo abreviado

Colocamos el cursor sobre la pantalla de metodo abreviado y pulsamos la
tecla que deseamos asociar para la apertura de la aplicacion, por ejemplo
la "H".

Se creara la combinacion "Ctrl+Alt+H".

No es posible el uso de las siguientes teclas para el metodo:

Esc, Enter, Tabulador, Barra Espaciadora, Impr Pant y Retroceso.

Alejandro Curquejo
Microsoft MVP
Windows XP-Shell/User


-The computer is your friend; trust the computer
-Inspired community; inspiring people

*Este mensaje se proporciona "TAL COMO ESTA" sin garantia de ninguna clase
y no otorga ningun derecho de reclamo*
*This posting is provided "AS IS" with no warranties, and confers no
rights*

-Tips y Articulos XP-http://www.multingles.net/tutoriales.htm#ALE
-DTS-L.Org-http://www.dts-l.org/

Que es el Programa MVP (Most Valuable Professional)
http://mvp.support.microsoft.com/de...pr=mvpfaqs



"Senador On?simo S?nchez" escribió en el mensaje
news:
| Necesitaría poder activar/desactivar con una combinación de teclas la
| opción "Mostrar/No mostrar archivos ocultos" (y evitar la secuencia
| Herramientas>Opciones de carpeta, etc.). Supongo que será posible con
| XP Pro.
| Y, por cierto, ¿dónde puedo encontrar información completa sobre los
| parámetros de explorer.exe? He mirado en un montón de sitios y no la
| encuentro.
| Gracias y saludos,
|
| Senador

"Alezito [MS MVP]" wrote in message news:...

Es normal, ya lo avise, copia el adjunto y tendras resuelto el problema.

Ah, perdón. Verás, es que por la mañana me conecto a los foros vía web
y por la tarde vía OE desde mi PC. Esta tarde trataré de recuperar el
adjunto que me enviabas al comienzo del hilo. Gracias.

Senador

Alejandro Curquejo
Microsoft MVP
Windows XP-Shell/User


-The computer is your friend; trust the computer
-Inspired community; inspiring people

*Este mensaje se proporciona "TAL COMO ESTA" sin garantia de ninguna clase
y no otorga ningun derecho de reclamo*
*This posting is provided "AS IS" with no warranties, and confers no
rights*

-Tips y Articulos XP-http://www.multingles.net/tutoriales.htm#ALE
-DTS-L.Org-http://www.dts-l.org/

Que es el Programa MVP (Most Valuable Professional)
http://mvp.support.microsoft.com/de...?prmvpfaqs



"Petronio" escribió en el mensaje
news:
| He copiado el código pero aparecía con las líneas mal cortadas; he
tratado
| de formatearlo "intuitivamente", porque apenas sé nada de programación,
pero
| el depurador me da errores continuos de compilación.
| Gracias de todas formas.
|
| Senador
|
| Alezito [MS MVP]" escribió en el mensaje
| news:
| > Te envio un script adjunto, libre de virus aunque algunos antivirus
protestan y su codigo
| > para que compruebes que es inofensivo, pero que cumple perfectamente
con
lo que pretendes:
| >
| > -Comienzo de codigo-
| > On Error Resume Next
| > Set WSHShellWscript.CreateObject("Wscript.Shell")
| >
| > X
| >
|
WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\
A
| dvanced\Hidden
| > ")
| >
| > If X "1" Then WshShell.RegWrite
| >
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden",
"2",
| > "REG DWORD"
| > Elseif X "2" Then WshShell.RegWrite
| >
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden",
| > "1", "REG DWORD"
| > End If
| >
| > Set WshShell Nothing
| > -Final de Codigo--
| >
| > Funcionara con doble clic y deberas actualizar la carpeta en cuestion
para
| > que el cambio tenga efecto.
| >
| > Si quieres automatizar el proceso, puedes asociarlo a alguna
combinacion
| > de teclas, te dejo un TIP que publique precisamente ayer en estos
foros:
| >
| > [TIP XP] Uso de la tecla "Alt" en la apertura directa de aplicaciones
| >
| > Si queremos automatizar la apertura de algunas de nuestras aplicaciones
| > con el teclado, podremos asociarlo a una simple combinacion de las
teclas
| > "Ctrl+Alt"
| >
| > Lo primero que haremos es crear un acceso directo de la aplicacion que
| > queremos abrir, para ello clic derecho del raton sobre el ejecutable de
la
| > aplicacion y seleccionamos "crear acceso directo".
| >
| > IMPORTANTE: Deberemos colocar dicho acceso directo en el escritorio.
| >
| > Realizamos de nuevo clic derecho del raton, esta vez, sobre el acceso
| > directo, Propiedades - Tecla de metodo abreviado
| >
| > Colocamos el cursor sobre la pantalla de metodo abreviado y pulsamos la
| > tecla que deseamos asociar para la apertura de la aplicacion, por
ejemplo
| > la "H".
| >
| > Se creara la combinacion "Ctrl+Alt+H".
| >
| > No es posible el uso de las siguientes teclas para el metodo:
| >
| > Esc, Enter, Tabulador, Barra Espaciadora, Impr Pant y Retroceso.
| >
| > --
| > Alejandro Curquejo
| > Microsoft MVP
| > Windows XP-Shell/User
| >
| >
| > -The computer is your friend; trust the computer
| > -Inspired community; inspiring people
| >
| > *Este mensaje se proporciona "TAL COMO ESTA" sin garantia de ninguna
clase
| > y no otorga ningun derecho de reclamo*
| > *This posting is provided "AS IS" with no warranties, and confers no
| > rights*
| >
| > -Tips y Articulos XP-http://www.multingles.net/tutoriales.htm#ALE
| > -DTS-L.Org-http://www.dts-l.org/
| >
| > Que es el Programa MVP (Most Valuable Professional)
| > http://mvp.support.microsoft.com/de...?prmvpfaqs
| >
| >
| >
| > "Senador On?simo S?nchez" escribió en el mensaje
| > news:
| > | Necesitaría poder activar/desactivar con una combinación de teclas la
| > | opción "Mostrar/No mostrar archivos ocultos" (y evitar la secuencia
| > | Herramientas>Opciones de carpeta, etc.). Supongo que será posible con
| > | XP Pro.
| > | Y, por cierto, ¿dónde puedo encontrar información completa sobre los
| > | parámetros de explorer.exe? He mirado en un montón de sitios y no la
| > | encuentro.
| > | Gracias y saludos,
| > |
| > | Senador
| >
|
|

Ok, ya me comentas '-)

Alejandro Curquejo
Microsoft MVP
Windows XP-Shell/User


-The computer is your friend; trust the computer
-Inspired community; inspiring people

*Este mensaje se proporciona "TAL COMO ESTA" sin garantia de ninguna clase
y no otorga ningun derecho de reclamo*
*This posting is provided "AS IS" with no warranties, and confers no
rights*

-Tips y Articulos XP-http://www.multingles.net/tutoriales.htm#ALE
-DTS-L.Org-http://www.dts-l.org/

Que es el Programa MVP (Most Valuable Professional)
http://mvp.support.microsoft.com/de...pr=mvpfaqs



"Senador On?simo S?nchez" escribió en el mensaje
news:
| "Alezito [MS MVP]" wrote in message
news:...
| > Es normal, ya lo avise, copia el adjunto y tendras resuelto el
problema.
|
| Ah, perdón. Verás, es que por la mañana me conecto a los foros vía web
| y por la tarde vía OE desde mi PC. Esta tarde trataré de recuperar el
| adjunto que me enviabas al comienzo del hilo. Gracias.
|
| Senador
|
| >
| > --
| > Alejandro Curquejo
| > Microsoft MVP
| > Windows XP-Shell/User
| >
| >
| > -The computer is your friend; trust the computer
| > -Inspired community; inspiring people
| >
| > *Este mensaje se proporciona "TAL COMO ESTA" sin garantia de ninguna
clase
| > y no otorga ningun derecho de reclamo*
| > *This posting is provided "AS IS" with no warranties, and confers no
| > rights*
| >
| > -Tips y Articulos XP-http://www.multingles.net/tutoriales.htm#ALE
| > -DTS-L.Org-http://www.dts-l.org/
| >
| > Que es el Programa MVP (Most Valuable Professional)
| > http://mvp.support.microsoft.com/de...?prmvpfaqs
| >
| >
| >
| > "Petronio" escribió en el mensaje
| > news:
| > | He copiado el código pero aparecía con las líneas mal cortadas; he
| > tratado
| > | de formatearlo "intuitivamente", porque apenas sé nada de
programación,
| > pero
| > | el depurador me da errores continuos de compilación.
| > | Gracias de todas formas.
| > |
| > | Senador
| > |
| > | Alezito [MS MVP]" escribió en el mensaje
| > | news:
| > | > Te envio un script adjunto, libre de virus aunque algunos antivirus
| > protestan y su codigo
| > | > para que compruebes que es inofensivo, pero que cumple
perfectamente
| > con
| > lo que pretendes:
| > | >
| > | > -Comienzo de codigo-
| > | > On Error Resume Next
| > | > Set WSHShellWscript.CreateObject("Wscript.Shell")
| > | >
| > | > X
| > | >
| > |
| >
WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\
| > A
| > | dvanced\Hidden
| > | > ")
| > | >
| > | > If X "1" Then WshShell.RegWrite
| > | >
| >
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden",
| > "2",
| > | > "REG DWORD"
| > | > Elseif X "2" Then WshShell.RegWrite
| > | >
| >
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden",
| > | > "1", "REG DWORD"
| > | > End If
| > | >
| > | > Set WshShell Nothing
| > | > -Final de Codigo--
| > | >
| > | > Funcionara con doble clic y deberas actualizar la carpeta en
cuestion
| > para
| > | > que el cambio tenga efecto.
| > | >
| > | > Si quieres automatizar el proceso, puedes asociarlo a alguna
| > combinacion
| > | > de teclas, te dejo un TIP que publique precisamente ayer en estos
| > foros:
| > | >
| > | > [TIP XP] Uso de la tecla "Alt" en la apertura directa de
aplicaciones
| > | >
| > | > Si queremos automatizar la apertura de algunas de nuestras
aplicaciones
| > | > con el teclado, podremos asociarlo a una simple combinacion de las
| > teclas
| > | > "Ctrl+Alt"
| > | >
| > | > Lo primero que haremos es crear un acceso directo de la aplicacion
que
| > | > queremos abrir, para ello clic derecho del raton sobre el
ejecutable de
| > la
| > | > aplicacion y seleccionamos "crear acceso directo".
| > | >
| > | > IMPORTANTE: Deberemos colocar dicho acceso directo en el
escritorio.
| > | >
| > | > Realizamos de nuevo clic derecho del raton, esta vez, sobre el
acceso
| > | > directo, Propiedades - Tecla de metodo abreviado
| > | >
| > | > Colocamos el cursor sobre la pantalla de metodo abreviado y
pulsamos la
| > | > tecla que deseamos asociar para la apertura de la aplicacion, por
| > ejemplo
| > | > la "H".
| > | >
| > | > Se creara la combinacion "Ctrl+Alt+H".
| > | >
| > | > No es posible el uso de las siguientes teclas para el metodo:
| > | >
| > | > Esc, Enter, Tabulador, Barra Espaciadora, Impr Pant y Retroceso.
| > | >
| > | > --
| > | > Alejandro Curquejo
| > | > Microsoft MVP
| > | > Windows XP-Shell/User
| > | >
| > | >
| > | > -The computer is your friend; trust the computer
| > | > -Inspired community; inspiring people
| > |

| > | > *Este mensaje se proporciona "TAL COMO ESTA" sin garantia de
ninguna
| > clase
| > | > y no otorga ningun derecho de reclamo*
| > | > *This posting is provided "AS IS" with no warranties, and confers
no
| > | > rights*
| > |

| > | > -Tips y Articulos XP-http://www.multingles.net/tutoriales.htm#ALE
| > | > -DTS-L.Org-http://www.dts-l.org/
| > |

| > | > Que es el Programa MVP (Most Valuable Professional)
| > | > http://mvp.support.microsoft.com/de...?prmvpfaqs
| > |

| > | >
| > | >
| > | > "Senador On?simo S?nchez" escribió en el
mensaje
| > | > news:
| > | > | Necesitaría poder activar/desactivar con una combinación de
teclas la
| > | > | opción "Mostrar/No mostrar archivos ocultos" (y evitar la
secuencia
| > | > | Herramientas>Opciones de carpeta, etc.). Supongo que será posible
con
| > | > | XP Pro.
| > | > | Y, por cierto, ¿dónde puedo encontrar información completa sobre
los
| > | > | parámetros de explorer.exe? He mirado en un montón de sitios y
no la
| > | > | encuentro.
| > | > | Gracias y saludos,
| > | > |
| > | > | Senador
| > | >
| > |
| > |
| >
| > --

"Alezito [MS MVP]" wrote in message news:...

Ok, ya me comentas '-)

Hola, Alezito:
Pues verás: por la tarde descargé el archivo (por cierto, mi antivirus
AVG no las pió, y creo que lo tengo actualizado; ¿será fiable
AVG?...), pero el primer intento no funcionó. Se paró en la segunda
línea dando error de compilación. Volví a descargarlo y lo abrí con el
bloc de notas después de haberme asegurado de que tenía desactivado el
ajuste de línea, y volví a guardarlo. Ahora no daba error, pero
aparentemente no hacía nada, o por lo menos no hacía lo que se supone
que debía hacer.
De nuevo, gracias por tu interés. Un saludo,

Senador

"Alezito [MS MVP]" wrote in message news:...

Ok, ya me comentas '-)

Hola, Alezito:
Pues verás: por la tarde descargé el archivo (por cierto, mi antivirus
AVG no las pió, y creo que lo tengo actualizado; ¿será fiable
AVG?...), pero el primer intento no funcionó. Se paró en la segunda
línea dando error de compilación. Volví a descargarlo y lo abrí con el
bloc de notas después de haberme asegurado de que tenía desactivado el
ajuste de línea, y volví a guardarlo. Ahora no daba error, pero
aparentemente no hacía nada, o por lo menos no hacía lo que se supone
que debía hacer.
De nuevo, gracias por tu interés. Un saludo,

Senador