Kód: Vybrať všetko

Option Explicit
Dim Ukaz
Ukaz = MsgBox ("Maju sa zobrazovat skryte subory?", 4, "Zobrazovac")

If ukaz = 6 Then
	ShowHiddenFilesAndFolders True
Else
	ShowHiddenFilesAndFolders False
End if


Function ShowHiddenFilesAndFolders(ByVal Enabled)
	dim objShell, RegValue, RegPath, CurrentValue, errnum
	On Error Resume Next

	set objShell = Wscript.CreateObject("WScript.Shell")
	If Enabled = True Then
        		RegValue = 1
    	Else
        		RegValue = 2
    	End If
    	RegPath = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
    	CurrentValue = objShell.RegRead(RegPath)
    	errnum = Err.Number

    	If errnum = 0 and (RegValue<>CurrentValue) Then
        
        	objShell.Regwrite RegPath, RegValue, "REG_DWORD"
       	 	On Error GoTo 0

        	For Each Process In GetObject("winmgmts:"). _
                        ExecQuery("select * from Win32_Process where name='explorer.exe'")
            		Process.Terminate (0)
        	Next
   	End If

End Function