Message = "To work correctly, the script will close" & vbCR Message = Message & "and restart the Windows Explorer shell." & vbCR Message = Message & "This will not harm your system." & vbCR & vbCR Message = Message & "Continue?" X = MsgBox(Message, vbYesNo, "Notice") If X = 6 Then On Error Resume Next On Error Resume Next Dim WSHShell, n, p, itemtype, MyBox Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden" itemtype = "REG_DWORD" n = WSHShell.RegRead (p) errnum = Err.Number if errnum <> 1 then WSHShell.RegWrite p, 2, itemtype End If If n = 2 Then WshShell.RegWrite p, 1, itemtype MyBox = MsgBox("Show Hidden Files and Folders are now ENABLED", 64, "Hidden Files and Folders") End If If n = 1 Then WshShell.Regwrite p, 2, itemtype MyBox = MsgBox("Show Hidden Files and Folders are now DISABLED", 64, "Hidden Files and Folders") End If Set WshShell = Nothing On Error GoTo 0 For Each Process in GetObject("winmgmts:"). _ ExecQuery ("select * from Win32_Process where name='explorer.exe'") Process.terminate(0) Next MsgBox "Finished." & vbcr & vbcr , 4096, "Done" Else MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled" End If

yves.vaissiere a Úcrit :
Impeccable sous XP, Pierre, mais sous 98 il y a un message d'erreur lors du rafra¯chissement. Il faut faire F5 deux fois, et, sur le bureau, la place des ic¶nes n'est pas sauvÚe. Mais þa marche quand mÛme.

griggione a Úcrit :
Bonjour tous Merci Pierre....[langue]

yves.vaissiere a Úcrit :
Comme solution la plus "light" pour Úviter le message d'erreur sous 98, j'ai trouvÚ de juste rajouter une apostrophe et un espace devant [code]on error goto 0[/code] bref la commenter, la rendre inopÚrante ; qu'en plus je me demande Ó quoi elle sert, comme le deuxiÞme "on error resume next" (þa suffit pas avec un ?). Comme þa þa marche sous XP et þa rafraichit, et il n'y a pas d'erreur sous 98 (mais il subsiste un message au dÚbut qui ne se justifie pas sous 98).