hide show file vb script

Set sh = CreateObject("WScript.Shell")

theKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\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