Archiv Windows XP 25.916 Themen, 128.567 Beiträge

Verfolgung starten Optionen

Versteckte Dateien Ein oder Ausblenden

Dieter66 / 4 Antworten / Baumansicht 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

Dieter66 peterson „Dim WshShell Set WshShell WScript.CreateObject WScript.Shell theKey HKCU...“
Optionen

Hi peterson,
habs probiert, vorher den entsprechenden Ordner versteckt geschaltet mit allen Unterordnern. Script lief auch, versteckt hat sich aber nichts.
LG Dieter

peterson Dieter66 „Hi peterson, habs probiert, vorher den entsprechenden Ordner versteckt...“
Optionen

Nun ja, ich habe nur nachgeprüft, ob das Script den Eintrag in der Registry ändert.

Dann habe ich geprüft, ob in den Einstellungen der Ordner der Button umspringt.

Das macht er jedesmal. Deswegen gehen ich auch davon aus, daß die Anzeige funktioniert.

Aber man muß man den Windows Explorer neu starten.

Mit Ansicht aktualisieren geht es auch.

Wenn es bei Dir nicht geht, dann fehlt was auf dem Rechner.
Das hat irgend was mit Scripten zu tun.
Mußt Du mal im Internet suchen.

Um VB-Script einsetzen zu können, ist der Windows-Scripting-Host notwendig. Diesen kann man sich auf der Webseite von Microsoft herunterladen. Bei der Installation des Internet-Explorers ab Version 5 ist VB-Script als WSH bereits schon installiert.

Dieter66 peterson „Nun ja, ich habe nur nachgeprüft, ob das Script den Eintrag in der Registry...“
Optionen

Alles klar, danke dir.
LG Dieter