title image


Smiley Re: Gibts da was? Bestimmte Funktionen in WinXP per Knopfdruck?
Hallo!

Das Aus- und Einblenden der Versteckten Dateien kannst Du mit einem VB-Script erledigen lassen. Einfach folgenden Text irgendwo als "*.vbs" abspeichern und eine Verknüpfung ins Startmenü oder auf den Desktop anlegen. Beim Aufruf kommt ein Popup welches den aktuellen Zustand angibt und fragt ob Du das ändern möchtest.

Hier der Quelltext:



'*********************************************

'VB-Script (Text abspeichern als »*.vbs«)

'Anzeige von versteckten Dateien aktivieren/deaktivieren

'*********************************************

set MyShell = CreateObject("wscript.shell")



status = MyShell.RegRead ("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden")



if status = 1 then

befehl = MyShell.popup ("Versteckte Dateien und Verzeichnisse" + vbCr + "werden angezeigt!" + vbCr + "jetzt ändern?",,"",vbOKCancel + vbSystemModal + vbQuestion)

if befehl = vbOK then

MyShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 0, "REG_DWORD"

end if

if befehl = vbCancel then

Wscript.quit

end if

end if



if status = 0 then

befehl = MyShell.popup ("Versteckte Dateien und Verzeichnisse" + vbCr + "werden NICHT angezeigt!" + vbCr + "Jetzt ändern?",,"",vbOKCancel + vbSystemModal + vbQuestion)

if befehl = vbOK then

MyShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, "REG_DWORD"

end if

if befehl = vbCancel then

Wscript.quit

end if

end if

'*********************************************

'Ende Script

'*********************************************



Die Kommentarzeilen (Mit dem »'« am Zeilenanfang kannst Du löschen.

Gruß Pet

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: