Afficher les fichiers cachés d'un simple clic, ou ne pas les afficher...

Description

(Pour 98 only, je pense...) Au lieu de passer par Affichage, options des dossiers...afficher les fichiers système... faire un raccourci du exe.

Source / Exemple :


'pour une des trois possibilités
'pour le reste et la frm, voir le zip !

Set reg = CreateObject("WScript.Shell")
reg.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 2, "REG_DWORD"
 
'UPLOAD
'vous pouvez aussi faire comme ça :
'Avant toute sub dans le "general"
Dim reg As New Wshshell
'la sub et
reg.read ""
'c'est plus propre selon la personne qui m'initie !

Conclusion :


En ayant marre de se retaper tout le chemin rebarbatif pour afficher les fichiers cachés, cette source est d'une utilité incontestable.
Le niveau reste peu élevé, il faut tout de même chopper la clé qui change, et savoir à quoi elle correspond :
HK_Local_Machine\software\microsoft\windows\current version\explorer\advanced\hidden !

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.