Archiv Windows XP 25.916 Themen, 128.567 Beiträge

Hi Freunde, verwende als BS XP.
Habe mir aus dem Netz dieses Macro heruntergeladen.
Es ist auf dem Desktop als ShortCut zum schnellen Ein-/Ausschlaten von versteckten Dateien und Ordnern abgelegt. Die Endung ist *.vbs.

Es läuft bei mir einwandfrei und die entsprechenden Meldungen werden auch ausgegeben. Aber es tut nicht, was es soll.
Was müßte ich da noch anders machen?

LG Dieter

Hier das Macro:

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- und versteckte Dateien werden nicht länger im Explorer angezeigt.",64,"Hidden File Exchange"
Else
setHidden = 1
MsgBox "System- und versteckte Dateien werden ab nun im Explorer angezeigt.",64,"Hidden File Exchange"
End If
sh.RegWrite theKey,setHidden,"REG_DWORD"
Set sh = Nothing