Il est très simple de connaitre le chemin du dossier d’installation de Windows, du dossier système et du dossier des fichiers temporaire. Commencez par créer un objet Scripting.FileSystemObject :
Dim fs As New Scripting.FileSystemObject
Les dossiers spéciaux sont accessibles avec la fonction GetSpecialFolder() de l’objet Scripting.FileSystemObject.
Pour connaitre le dossier d’installation de Windows, passez la constante WindowsFolder ou la valeur 0 à cette fonction :
MsgBox fs.GetSpecialFolder(WindowsFolder) MsgBox fs.GetSpecialFolder(0)
Pour connaitre le dossier système, passez la constante SystemFolder ou la valeur 1 à cette fonction :
MsgBox fs.GetSpecialFolder(SystemFolder) MsgBox fs.GetSpecialFolder(1)
Pour connaitre le dossier des fichiers temporaires, passez la constante TemporaryFolder ou la valeur 2 à cette fonction :
MsgBox fs.GetSpecialFolder(TemporaryFolder) MsgBox fs.GetSpecialFolder(2)
Une fois l’objet Scripting.FileSystemObject utilisé, supprimez-le de la mémoire en lui affectant la valeur Nothing :
Set fs = Nothing
Voici un exemple de code complet :
Dim fs As New Scripting.FileSystemObject MsgBox fs.GetSpecialFolder(WindowsFolder) MsgBox fs.GetSpecialFolder(SystemFolder) MsgBox fs.GetSpecialFolder(TemporaryFolder) Set fs = Nothing
Et voici le résultat :
