Show_Hidden_Files_On_Off Toggle-Script

Simply copy paste following code in NOTEPAD and save the file with name " Show_Hidden_Files_On_Off.vbs " (including quotes):

Hidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"

SHidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"

Set Sh = WScript.CreateObject("WScript.Shell")

St = Sh.RegRead(Hidden)

If St = 2 Then

Sh.RegWrite Hidden, 1, "REG_DWORD"

Sh.RegWrite SHidden, 1, "REG_DWORD"

Else

Sh.RegWrite Hidden, 2, "REG_DWORD"

Sh.RegWrite SHidden, 0, "REG_DWORD"

End If

Sh.SendKeys("{F5}")

Posted in , , , , ,


0 Response to "Show_Hidden_Files_On_Off Toggle-Script"

Post a Comment

Subscribe to: Post Comments (Atom)