Petit script pour afficher/masquer les dossiers cachés.

[oGu]

Yo!

 

Pour ceux qui ont souvent besoin d'afficher leurs fichiers et dossiers masqués, ou pour les helpers désireux d'automatiser cette opération en un script, voici la traduction d'un .vbs issu de mémoire du site Kelly's Corner:

 

http://www.kellys-korner-xp.com/xp.htm

• Copier-coller ce texte:
   
  

  Message = "Ce script va fermer vos fenêtres et votre barre des tâches" & vbCR
  Message = Message & "puis redémarrer l'explorer:" & vbCR
  Message = Message & "cette manipulation est SANS DANGER" & vbCR & vbCR
  Message = Message & "Continuer ?"
  
  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(" Les fichiers sont maintenant visibles !", 64, "Hidden Files and Folders")
  End If
  
  If n = 1 Then 
  WshShell.Regwrite p, 2, itemtype
  MyBox = MsgBox(" Les fichiers sont maintenant cachés !", 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 " Fin de l'opération." & vbcr & vbcr , 4096, "Terminé"
  
  Else 
  
  MsgBox "Aucun changement n'a été effectué:." & vbcr & vbcr, 4096, "Annulation de l'opération par l'utilisateur "
  
  End If

  
  

• Le coller dans un fichier texte (type bloc-note ou wordpad)
  
• Enregistrer ce fichier texte sous l'appelation Masquer_Démasquer_fichiers_cachés.vbs
  
  
• Un simple double-clic sur le script fera apparaître un mini-assistant demandant l'autorisation à l'utilisateur de continuer.
  

Simple et efficace !

 

Pour les fainéants, je l'ai hosté sur Free:

 

http://dl.free.fr/jcP1mLPES/Masquer_Affich...cach%C3%A9s.vbs

 

et sur Woofiles:

 

http://www.woofiles.com/dl-114824-3zx5REHn...hierscaches.vbs

 

 

Modifié le 30 janvier 2008 par ogu

[morron2]

bonsoir

 

je n'ai pas essayé ton script mais sous quel os fonctionne t'il ?

[oGu]

Salut.

 

Je ne l'ai essayé que sous XP.

 

Cela dit je n'ai pas créé ce script, je me suis contenté de le traduire.J'ignore donc s'il fonctionne sous d'autres OS...

[pear]

Bonjour Ogu,

 

Cela serait plus intéressant si votre vbs décochait aussi l'option"Masquer les fichiers protégés" qui va de pair avec celle que vous traitez.

A moins que cela soit fait aussi ?

Mais il ne me semble pas.

 

Ps: J'ai décoché ces 2 options depuis toujours .

Je n'ai jamais compris pourquoi c'est coché par défaut puisque, au moindre problème , il faut décocher.

[oGu]

Bonjour Pear;

 

bonne idée, mais comme je ne suis pas le créateur de ce VBS, j'ignore comment le modifier: la clé de registre relative aux fichiers protégés semble être:

 

"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"

 

Comment l'intégrer au script?

[pear]

Hola!

 

Je ne suis pas developpeur.

Hkcu, et aussi Hklm, il me semble.

Il faudrait proposer cela à Sebdrualorg, Bibi26 ou Coolman

Modifié le 1 février 2008 par pear

[oGu]

Il faudrait proposer cela à Sebdrualorg, Bibi26 ou Coolman

 

Arf...je crois qu'ils ont mieux à faire, avec des projets plus ambitieux !

[Invité Invité]

Moi je propose celui-ci, il ne vous redémarre pas l'explorer mais demande juste d'actualiser vos fenêtres.

Et il Cache/affiche les fichiers et dossiers cachés et protégés.

 

Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")

p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
q = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"

itemtype = "REG_DWORD"

n = WSHShell.RegRead (p)


If n = 2 Then
WshShell.RegWrite p, 1, itemtype
WshShell.RegWrite q, 1, itemtype
Message = "Fichiers et dossiers cachés affichés avec succès," & vbCR
Message = Message & "actualisez vos fenètres (F5)."
MyBox = MsgBox(Message, 64, "Afficher vos fichiers et dossiers cachés")

End If


If n = 1 Then
WshShell.Regwrite p, 2, itemtype
WshShell.RegWrite q, 2, itemtype
Message = "Fichiers et dossiers cachés masqués avec succès," & vbCR
Message = Message & "actualisez vos fenètres (F5)."
MyBox = MsgBox(Message, 64, "Masquer vos fichiers et dossiers cachés")

End If