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

Dim WshShell Set WshShell WScript.CreateObject WScript.Shell theKey HKCU ... peterson
Hi peterson, habs probiert, vorher den entsprechenden Ordner versteckt ... Dieter66
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.

Alles klar, danke dir. LG Dieter Dieter66