El Blog de Enrique Cortés

viernes, 21 de noviembre de 2008

Mostrar u ocultar las extensiones de archivo con un clic


Algunas veces es preferible que no se muestren las extensiones de los archivos, para así poder cambiar su nombre más fácilmente. Otras veces, sin embargo, sí que se requiere que se muestren, para poder modificarlas, o saber de qué extensión se trata. Windows permite optar por ambas posibilidades, pero para activar una u otra es necesario sumergirse por ventanas y menús hasta dar con ello.
Con este sencillo script, que puedes guardar en cualquier sitio, por ejemplo en la barra de tareas donde siempre estará disponible, será suficiente un simple clic para alternar la visualización u ocultación de las extensiones de archivos. Abre el bloc de notas (notepad) y copia el siguiente contenido:


Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim var1, var2, msg
Const x = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt"
var1 = WSHShell.RegRead(x)
var2 = 1- var1
If var2 = 0 then
msg = "Se han hecho visibles las extensiones de los archivos"
Else
msg = "Se han ocultado las extensiones de los archivos"
end if
WSHShell.Popup msg
WSHShell.RegWrite x, var2, "REG_DWORD"


Guarda el archivo, en un lugar seguro, con el nombre Mostrar-Ocultar_Extensiones.vbs. Puedes crear un acceso directo en la Barra de tareas o en el menú de Inicio. El script es válido para Windows XP, Windows Vista y Windows 7. Aquí puedes ver los cuadros de diálogo del script:









2 comentarios:

Anónimo dijo...

Hola me interesaria usar este script pero es tema de actualizar no funciona muy bien. Podrias implementar que actualice solo. Yo he encontrado esto pero no sirve porque seria como pulsar F5:
Dim strDesktop
strDesktop = WSHShell.SpecialFolders("Desktop")
WSHShell.AppActivate strDesktop
WSHShell.SendKeys "{F5}"
WScript.Quit

Enrique Cortés dijo...

¿Para qué es exactamente ese script, y qué se supone que debe hacer?