VBScript: Alle Dateien Anzeigen (Fehler behoben)

[[CH]IlvlAIRA]

Hallo eGurus

Ich muss öfters kurzzeitig alle Versteckten Dateien und Ordner, sowie geschützte Systemdateien einsehen können. Doch auf Dauer nervt dies
Ich habe darum ein VBScript gemacht, mit dem mit einem Mausklick folgende Ordneroptionen geändert werden können:

• Geschützte Systemdateien ausblenden
• Versteckte Dateien und Ordner Ausblenden (resp. Alle Dateien und Ordner Anzeigen)

Klickt man auf "Ja", werden beide Optionen deaktiviert. Klickt man auf "Nein", werden beide aktiviert


Folgendes Script einfach in ein leeres Textfile (*.txt) abspeichern und als *.vbs Datei umbenennen.

Option Explicit

Dim WSHShell, Input, RegKey, HiddenValue, ShowSuperHiddenValue

Set WSHShell = CreateObject("WScript.Shell")
Input = MsgBox("Hidden Files anzeigen?",vbYesNo)
RegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"


If Input = vbyes Then
HiddenValue = 1
ShowSuperHiddenValue = 1
End If

If Input = vbno Then
HiddenValue = 2
ShowSuperHiddenValue = 0
End If


WSHShell.RegWrite RegKey & "Hidden", HiddenValue, "REG_DWORD"
WSHShell.RegWrite RegKey & "ShowSuperHidden", ShowSuperHiddenValue, "REG_DWORD"

Refresh muss man leider noch selbst machen, also die geöffneten Fenster und den Desktop einfach per "F5" aktualisieren. Könnte man zwar per Sendkey(F5) lösen, ist aber eine sehr gefährliche Methode, da man dazwischen Klicken kann.

Würde mich über Feedback freuen, ist zwar nichts wahnsinnig grosses ^^ aber evtl. für den ein oder anderen nützlich

Gruss [CH]IlvlAIRA

[Drag]

Also bei mir (Vista Ultimate 64bit) funktionierts nicht. Aktualisieren hab ich nicht vergessen.

[[CH]IlvlAIRA]

EDIT: hat sich beim Copy-Paste ein Fehler eingeschlichen (Abstand im Wort "Explorer")
Nun funktionierts. Die Registry Werte hab ich noch angepasst, einfach neu kopieren.

Sory für den "Schönheitsfehler". Nun hab ich deine Registry mit einem neuen Ordner namens "Ex plorer" verunstaltet ^^

HKCU\Software\Microsoft\Windows\CurrentVersion\Ex plorer\ <--- kannst wieder löschen

[Drag]

Kein Problem. ^^

Das is oben aber immernoch mit dem Abstand drin. Oo


Auf jedenfall funktionierts und ich finds ganz praktisch. Kann man ja auch nehmen wenn ein "Fremder" kurz an den PC will und da Sachen drauf sind die er/sie nicht unbedingt sehen muss.

[xpate]

Hatte mir sowas früher auch mal gebastelt und auf meinen Stick gepackt. Wenn ich dann beim Kunden bin und auf versteckte Dateien zugreifen will, nutze ich das immer.

[[CH]IlvlAIRA]

Das ist echt seltsam, der Abstand ist jeweils nur nach dem Abspeichern drin
Wenn ich auf "ändern" klicke, dann wird es ebenfalls OHNE Abstand angezeigt?!

Edit: Es liegt am QUOTE, welchen ich verwendet habe. Mit der CODE-Funktion gehts