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
Dieter66
peterson
