ShoworHide.vbs:
Dim WSHShell
Set WSHShell = WScript.Createobject("WScript.Shell")
KeyValue=WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt") Xor 1
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt",KeyValue, "REG_DWORD"
WshShell.SendKeys "{F5}+{F10}e"
Set WSHShell = Nothing
WScript.Quit(0)
Create a shortcut for this script, and then set the hotkey of the shortcut to F7 (I use this one, you can choose randomly, just choose one that is easy to press for yourself).
[ Last edited by slore on 2007-4-19 at 11:40 PM ]
Dim WSHShell
Set WSHShell = WScript.Createobject("WScript.Shell")
KeyValue=WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt") Xor 1
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt",KeyValue, "REG_DWORD"
WshShell.SendKeys "{F5}+{F10}e"
Set WSHShell = Nothing
WScript.Quit(0)
Create a shortcut for this script, and then set the hotkey of the shortcut to F7 (I use this one, you can choose randomly, just choose one that is easy to press for yourself).
[ Last edited by slore on 2007-4-19 at 11:40 PM ]
Recent Ratings for This Post
( 1 in total)
Click for details
| Rater | Score | Time |
|---|---|---|
| everest79 | +15 | 2007-04-21 02:49 |

