Lo que haremos será crear un script con el que podremos mostrar u ocultar las extensiones de los archivos con un simple clic. De esa manera podemos tenerlas visibles por defecto, y esconderlas para cambiar el nombre a un fichero, o mantenerlas ocultas, y mostrarlas cuando queramos alterar la extensión de un archivo (lo que nos sea más conveniente).
Para ello simplemente debemos ir al bloc de notas y pegar el siguiente código.
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"
Luego, guardamos el archivo con la extensión .VBS, y si lo deseamos, le creamos un acceso directo en el escritorio o en el inicio rápido. Bastará con hacer clic sobre el para cambiar la configuración y establecer si las extensiones serán visibles o no en el explorador de Windows.
Lo positivo de usar este método es que no necesitamos instalar ninguna aplicación que corra en segundo plano, basta con ejecutar el mencionado script para saltarnos todos los menús y ventanas emergentes por los que tendríamos que pasar para cambiar esta opción.