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: