Archiv Windows XP 25.916 Themen, 128.567 Beiträge

Verfolgung starten Optionen

Versteckte Dateien Ein oder Ausblenden

Dieter66 / 4 Antworten / Flachansicht Nickles

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

peterson Dieter66 „Versteckte Dateien Ein oder Ausblenden“
Optionen

Dim WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")
theKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
setHidden = WshShell.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

WshShell.RegWrite(theKey), setHidden, "REG_DWORD"

Set WshShell = Nothing

Hi peterson, habs probiert, vorher den entsprechenden Ordner versteckt ... Dieter66
Nun ja, ich habe nur nachgeprüft, ob das Script den Eintrag in der Registry ... peterson
Alles klar, danke dir. LG Dieter Dieter66