Récupérer des dossiers spéciaux

Dans le message news:41a86059$0$30704$ba620e4c@news.skynet.be ,
Pero <surac@advalvas.be> s'est ainsi exprimé:

Bonjour à tous,

J'aimerais faire un script qui vide les dossiers "Temporary Internet
Files", "Temp", "Mes documents récents", "Cookies" sous XP, pour
l'utilisateur courant.

Comment retrouver ces dossiers (indépendamment de la langue de l'OS)
???

A l'aide de l'objet "SpecialFolders" de l'objet "Shell"

Set Shell=Wscript.CreateObject("WScript.Shell")
Set fldrs=Shell.SpecialFolders
MesDocs=fldrs("Mydocuments")
MesDocsRecents=fldrs("Recent")
Bureau=fldrs("Desktop")
MenuDemarrer=fldrs("StartMenu")
VoisinageReseau=fldrs("NetHood")


En ce qui concerne "Temp", c'est une variable d'environnement :
Temp=shell.ExpandEnvironmentStrings("%temp%")

De même Cookies se déduit de %userprofile%
Cookies=shell.ExpandEnvironmentStrings("%UserProfile%") & "cookies"

Quant à "Temporary Internet Files", vu que ce dossier peut être défini au
gré de l'utilisateur, cela s'obtient par lecture de la BDR :

key="HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell
FoldersCache"
TIF=Shell.regRead(key)


Exemple récapitulatif :

Script "SpecialFolders.vbs" :
------- couper ici -------
Set Shell=Wscript.CreateObject("WScript.Shell")
Set fldrs=Shell.SpecialFolders
MesDocs=fldrs("Mydocuments")
MesDocsRecents=fldrs("Recent")
Bureau=fldrs("Desktop")
MenuDemarrer=fldrs("StartMenu")
VoisinageReseau=fldrs("NetHood")
Cookies=shell.ExpandEnvironmentStrings("%UserProfile%") & "cookies"
key="HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell
FoldersCache"
TIF=Shell.regRead(key)

wscript.echo MesDocs
wscript.echo MesDocsRecents
wscript.echo Bureau
wscript.echo MenuDemarrer
wscript.echo VoisinageReseau
wscript.echo Cookies
wscript.echo TIF
------- couper ici -------

Ce qui donne chez moi :
I:Program FilesVBS>specialfolders.vbs
C:Documents and SettingsBELLAMYMes documents
C:Documents and SettingsBELLAMYRecent
C:Documents and SettingsBELLAMYBureau
C:Documents and SettingsBELLAMYMenu Démarrer
C:Documents and SettingsBELLAMYVoisinage réseau
C:Documents and SettingsBELLAMYcookies
T:Temporary Internet Files


--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr