Médiaforma

VBA Excel – Accès aux dossiers spéciaux

Print Friendly, PDF & Email

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 :

      

Vous avez aimé cet article ? Partagez-le avec vos réseaux...