Discussion :

[davidc]

Bonsoir, je n'arrive pas à trouver comment faire pour afficher les dossiers et fichiers cachés lorsque je désire sélectionner un fichier avec OpenFileDialog1.ShowDialog. Comment faire? Merci de vos réponses

[davidc]

Bonsoir, peut être me suis je mal exprimé, j'aimerais ouvrir une boite de dialogue où je pourrais sélectionner un fichier dans un dossier, mais il faudrait que je puisse avoir accès aux dossiers et aux fichiers cachés, pour effectuer cette tache. Merci de vos réponses.

[wallace1]

Bonsoir davidc,

L'affichage des fichiers et dossiers cachés nécessite la modification de certaines clés du registre suivie d'un rafraîchissement de l'explorateur.

Donc voici les clés de registre à modifier :

"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden" DWORD à mettre à 1
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden" DWORD à mettre à 1
"HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt" DWORD à mettre à 0

Pour le rafraîchissement de l'explorateur :

1- Tu kill le process "explorer.exe"

http://pastebin.com/DwjHqvSb

2- Tu le relances :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Process.start("explorer")

Tu peux aussi utiliser ce script ".vbs" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Option Explicit
Dim dblHiddenData, strHiddenKey, strHiddenSystem, strHiddenFileExt
Dim strHide, strRefresh, WshShell
On Error Resume Next
strHide = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
strHiddenKey = strHide & "\Hidden"
strHiddenSystem = strHide & "\ShowSuperHidden"
strHiddenFileExt = strHide & "\HideFileExt"
Set WshShell = WScript.CreateObject("WScript.Shell")
dblHiddenData = WshShell.RegRead(strHiddenKey)
If dblHiddenData = 2 Then
WshShell.RegWrite strHiddenKey, 1, "REG_DWORD"
WshShell.RegWrite strHiddenSystem, 1, "REG_DWORD"
WshShell.RegWrite strHiddenFileExt, 0, "REG_DWORD"
Set WSHShell = WScript.CreateObject("WScript.Shell") 
strRefresh = WshShell.SpecialFolders("Desktop")
WshShell.AppActivate strDesktop
WshShell.SendKeys("{F5}")
End if

1- Tu copies-colles le contenu dans un fichier .txt que tu enregistres sous le nom "ShowHidden" et l'extension ".vbs"
2- Tu le places dans mon exemple à la racine de "C:\"
3- Tu l'appelles grâce à la ligne de commande suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C:\windows\system32\wscript.exe "C:\ShowHidden.vbs"

Pour afficher de nouveau les fichiers et dossiers utilises ce script .vbs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Dim dblHiddenData, strHidden, strHiddenSystem, strHiddenFileExt
Dim strHide, strRefresh, WshShell
On Error Resume Next
strHide = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
strHidden = strHide & "\Hidden"
strHiddenSystem = strHide & "\ShowHiddenSystem"
strHiddenFileExt = strHide & "\HideFileExt"
Set WshShell = WScript.CreateObject("WScript.Shell")
dblHiddenData = WshShell.RegRead(strHidden)
If dblHiddenData = 1 Then
WshShell.RegWrite strHidden, 2, "REG_DWORD"
WshShell.RegWrite strHiddenSystem, 0, "REG_DWORD"
WshShell.RegWrite strHiddenFileExt, 1, "REG_DWORD"
Set WSHShell = WScript.CreateObject("WScript.Shell")
strRefresh = WshShell.SpecialFolders("Desktop")
WshShell.AppActivate strDesktop
WshShell.SendKeys("{F5}")
End If

Il est aussi possible de parcourir tous les fichiers et dossiers pour modifier les attributs (caché, lecture seule, archive,...etc....) programmatiquement.

A+