pWord = ""

If InputBox("Press OK to show or hide the hidden files!" & vbcrlf & vbcrlf &"Write RESET below to normalize everything!","Show or hide your files!") = pWord Then

Set sh1 = CreateObject("WScript.Shell")
theKey_A = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
setHidden_A = sh1.RegRead(theKey_A)

If setHidden_A = 1 Then
setHidden_A = 0
'MsgBox "hidden files will no longer appear in Explorer.",64,"Hidden File Exchange!"
Else
setHidden_A = 1
'MsgBox "hidden files will now appear in Explorer.",64,"Hidden File Exchange!"
End If



Set sh2 = CreateObject("WScript.Shell")
theKey_B = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\SuperHidden"
setHidden_B = sh2.RegRead(theKey_B)

If setHidden_B = 0 Then
setHidden_B = 2
'MsgBox "System1 files will no longer appear in Explorer.",64,"Hidden File Exchange!"
Else
setHidden_B = 0
'MsgBox "System1 files will now appear in Explorer.",64,"Hidden File Exchange!"
End If



Set sh3 = CreateObject("WScript.Shell")
theKey_C = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
setHidden_C = sh3.RegRead(theKey_C)

If setHidden_C = 1 Then
setHidden_C = 0
'MsgBox "System2 files will no longer appear in Explorer.",64,"Hidden File Exchange!"
Else
setHidden_C = 1
'MsgBox "System2 files will now appear in Explorer.",64,"Hidden File Exchange!"
End If


sh1.RegWrite theKey_A,setHidden_A,"REG_DWORD"
sh2.RegWrite theKey_B,setHidden_B,"REG_DWORD"
sh3.RegWrite theKey_C,setHidden_C,"REG_DWORD"
Set sh1 = Nothing
Set sh2 = Nothing
Set sh3 = Nothing


'Option Explicit
Dim WSHShell, strDesktop
Set WSHShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 500
WSHShell.SendKeys "{F5}" 
strDesktop = WSHShell.SpecialFolders("Desktop") 
WSHShell.AppActivate strDesktop
WScript.Sleep 500
WSHShell.SendKeys "{F5}"
WScript.Quit


press F5

else




Set sh1 = CreateObject("WScript.Shell")
theKey_A = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
setHidden_A = sh1.RegRead(theKey_A)
setHidden_A = 0

Set sh2 = CreateObject("WScript.Shell")
theKey_B = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\SuperHidden"
setHidden_B = sh2.RegRead(theKey_B)
setHidden_B = 2

Set sh3 = CreateObject("WScript.Shell")
theKey_C = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
setHidden_C = sh3.RegRead(theKey_C)
setHidden_C = 0

sh1.RegWrite theKey_A,setHidden_A,"REG_DWORD"
sh2.RegWrite theKey_B,setHidden_B,"REG_DWORD"
sh3.RegWrite theKey_C,setHidden_C,"REG_DWORD"
Set sh1 = Nothing
Set sh2 = Nothing
Set sh3 = Nothing

MsgBox "Both Hidden and SystemFile attributes has been reset back to normal!",64,"Hidden Files - Reset Complete!"





End If