'Script conçu et créé par scraper (scraper@tiscali.fr) et Paskal (paskal@faqoe.com)
'Permet de retrouver et d'afficher le dossier de stockage

Option Explicit

'Déclare les objets et variables
Dim objShell
Dim strStorepath
Dim dblHideFiles

'Crée l'objet  
Set objShell=CreateObject("WScript.Shell")

'Recherche dans le Registre l'emplacement du Dossier de stockage
strStorepath= objShell.RegRead ("HKEY_CURRENT_USER\Identities\" & objShell.RegRead("HKEY_CURRENT_USER\Identities\Last User ID") & "\Software\Microsoft\Outlook Express\5.0\Store Root")

'Détermine l'état d'affichage des fichiers et dossiers cachés
dblHideFiles=0
On Error Resume Next
dblHideFiles= objShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden")
'Permet le cas échéant l'affichage des fichiers cachés
If Err.Number or dblHideFiles<>1 then objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden",1, "REG_DWORD"
On Error Goto 0
	
'Lance l'explorateur et explore le dossier de stockage de Outlook Express
objShell.run chr(34) & strStorepath & chr(34)	

'Restaure l'état initial d'affichage des fichiers et dossiers cachés
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden",dblHideFiles, "REG_DWORD"

'Décharge l'objet
Set objShell=Nothing