Servus,

Ich habe folgenden Code

Public Sub versteckte_Ordner_Anzeigen()
    Dim WSHShell As Object
    Set WSHShell = CreateObject("wscript.shell")
    WSHShell.RegWrite _
      "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"_
      , 1, "REG_DWORD"
    Set WSHShell = Nothing
'    Reset_after_RegWrite
End Sub

funktioniert auch. Nur wird das System nicht aktualisiert. Ich muss den Dateiexplorer noch zusätzlich starten und mit Ctrl+R aktualisieren, damit die versteckten Ordner auch wirklich angezeigt werden bzw. mit eben nicht.

Was muss ich im Code noch anfügen?

Danke für die Tipps 
Markus

PS: Ich habe die Frage bereits in einem Forum gestellt, ledier viele Aufrufe aber keine Antwort.
vb@rchiv · Diskussionsforen · Aktualisieren nach RegWrite · Visual-Basic Einsteiger (vbarchiv.net)