How to turn hidden files on and off with a vb script good if u have rocket dock or any docklet program just make a shortcut to it drag and drop it on ur dock and there you go.
VB Script:
Option Explicit
Dim dblHiddenData, strHiddenKey, strSuperHiddenKey, strFileExtKey
Dim strKey, WshShell
On Error Resume Next
strKey = “HKCU\Software\Microsoft\Windows\Current Version\Explorer\Advanced”
strHiddenKey = strKey & “\Hidden”
strSuperHiddenKey = strKey & “\ShowSuperHidden”
strFileExtKey = strKey & “\HideFileExt”
Set WshShell = WScript.CreateObject(“WScript.Shell”)
dblHiddenData = WshShell.RegRead(strHiddenKey)
If dblHiddenData = 2 Then
WshShell.RegWrite strHiddenKey, 1, “REG_DWORD”
WshShell.RegWrite strSuperHiddenKey, 1, “REG_DWORD”
WshShell.RegWrite strFileExtKey, 0, “REG_DWORD”
WScript.Echo “Showing Hidden Files “
Else
WshShell.RegWrite strHiddenKey, 2, “REG_DWORD”
WshShell.RegWrite strSuperHiddenKey, 0, “REG_DWORD”
WshShell.RegWrite strFileExtKey, 1, “REG_DWORD”
WScript.Echo “Hidding Files “
Your missing an end if at the end of the code, having resolved these two issues it still doesn’t work for me. It just doesn’t change the reg setting any hints?
Yeah i dont know how it got all screwed up lol this should work i just tested it
Option Explicit
Dim dblHiddenData, strHiddenKey, strSuperHiddenKey
Dim strKey, WshShell
On Error Resume Next
strKey = “HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced”
strHiddenKey = strKey & “\Hidden”
strSuperHiddenKey = strKey & “\ShowSuperHidden”
Set WshShell = WScript.CreateObject(“WScript.Shell”)
dblHiddenData = WshShell.RegRead(strHiddenKey)
If dblHiddenData = 2 Then
WshShell.RegWrite strHiddenKey, 1, “REG_DWORD”
WshShell.RegWrite strSuperHiddenKey, 1, “REG_DWORD”
WScript.Echo “Showing Hidden Files ”
Else
WshShell.RegWrite strHiddenKey, 2, “REG_DWORD”
WshShell.RegWrite strSuperHiddenKey, 0, “REG_DWORD”
WScript.Echo “Hidding Files ”
End if