Sub test() Dim WshShell, bKey Set WshShell = CreateObject("WScript.Shell") bKey = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden") MsgBox bKey bKey = IIf(bKey = 1, 0, 1) WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", bKey, "REG_DWORD" End Sub
Modifié le 27 mai 2022 à 20:04
voici le code utilisé :