Windows 7 / Vista / XP – Versteckte Dateien anzeigen per Skriptdatei

Link
http://www.driversclubsand.de/versch/youtubeskript.html

Das Skript:

Option Explicit

Dim WSHShell, RegPath, KeyName, KeyValue, Result, DlgAnswer
DlgAnswer = MsgBox(„Klicken Sie ‚Ja‘, um versteckte Dateien einzublenden oder klicken Sie ‚Nein‘, um versteckte Dateien auszublenden“,vbYesNoCancel,“Versteckte Dateien zeigen“)

if DlgAnswer = vbYes then
KeyValue = 1
elseif DlgAnswer = vbNo then
KeyValue = 0
end if

if DlgAnswer <> vbCancel then
Set WSHShell = CreateObject(„WScript.Shell“)
RegPath = „HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\“
KeyName = „Hidden“
WSHShell.RegWrite RegPath & KeyName,KeyValue,“REG_DWORD“
end if

Tags:
Windows Vista XP Versteckte Dateien anzeigen per Skriptdatei vbs vb