Windows 10 Dossiers cachés

Dans le nouveau Windows 10, des dossiers sont cachés comme "application data" et c'est pas évident d'y accéder et les rendre visibles.
On peut pourtant les rendre visible ou les re-cacher en lançant un fichier en vbs.

Comment le créer. Dans bloc note créer un fichier texte avec le script suivant:

Hidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
    SHidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
    Set Sh = WScript.CreateObject("WScript.Shell")
    St = Sh.RegRead(Hidden)
    If St = 2 Then
    Sh.RegWrite Hidden, 1, "REG_DWORD"
    Sh.RegWrite SHidden, 1, "REG_DWORD"
    Else
    Sh.RegWrite Hidden, 2, "REG_DWORD"
    Sh.RegWrite SHidden, 0, "REG_DWORD"
    End If
    Sh.SendKeys("{F5}")

Entre la 2ème et 3ème ligne pas d'espace    Advenced\Show...

Sauvez-le sous       Show_Hidden_Files_On_Off.txt

Puis changer l'extension txt en vbs

Sous windows 10 quand vous cliquez dessus les dossiers cachés apparaissent, quand vous re-cliquez dessus, ils réapparaissent.