Enable/Disable Hidden Files

'Restriction: Disable "Hidden Files"
On Error Resume Next
dim r,d,str
str="Restriction: Disable Hidden Files "

d = MsgBox("This will disable the hidden files in your computer" & vbcrlf & "Click yes/no to Enable/Disable Restriction",1,str)
Set r = CreateObject("Wscript.Shell")
if d=1 then
r.RegWrite "HKCU\Software\Microsoft\Windows\Current

Version\Explorer\Advanced\Hidden","0","REG_DWORD"
msgbox "Restriction : ENABLED",0,str
else
r.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden","1","REG_DWORD"
msgbox "Restriction : DISABLED",0,str
end if