View Single Post
Staro 08.11.2006., 23:18   #2
Dule
Premium
Moj komp
 
Dule's Avatar
 
Datum registracije: Aug 2006
Lokacija: Zagreb
Postovi: 629
nije batch ali je vbs.

Citiraj:
Autor kod
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
samo c/p u notepad i rename u whatever.vbs. edit po volji.
Dule je online   Reply With Quote