Thanks for that Terry.
Jester, copy and paste the following bold text into Notepad:
pWord = "password"
If InputBox("Please enter your password:","Password") = pWord Then
Set sh = CreateObject("WScript.Shell")
theKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Ex plorer\Advanced\Hidden"
setHidden = sh.RegRead(theKey)
If setHidden = 1 Then
setHidden = 0
MsgBox "System and hidden files will no longer appear in Explorer.",64,"Hidden File Exchange"
Else
setHidden = 1
MsgBox "System and hidden files will appear in Explorer.",64,"Hidden File Exchange"
End If
sh.RegWrite theKey,setHidden,"REG_DWORD"
Set sh = Nothing
End If
The very first line sets the password. You can change
"password" to anything you like, just make sure the speech marks remain.
Save the file to your desktop (or somewhere). You can call it anything you like as long as it has a
.vbs extension on the end of it. It's icon should be a page with a blue scroll on it.
Double-click this icon to swap between hidden or not. You will need to enter the correct password for the swap to work.