Dim objFSO, vFolderPath Dim WSHShell 'Première création de répertoire avec un chemin brut vFolderPath = "C:\MonRepertoire" 'Définition du chemin du répertoire à créer Set objFSO = CreateObject("Scripting.FileSystemObject") if objFSO.FolderExists(vFolderPath) = False Then Set MyFolder = objFSO.CreateFolder(vFolderPath) 'Création du répertoire si il n'existe pas 'Seconde création de répertoire en faisant appel à une variable d'environnement Set WSHShell = CreateObject("WScript.Shell") vSystemDrive = WSHShell.ExpandEnvironmentStrings("%SystemDrive%") 'Récupération de la variable vFolderPath = vSystemDrive & "\" & "MonRepertoire2" 'Définition du chemin du répertoire à créer if objFSO.FolderExists(vFolderPath) = False Then Set MyFolder = objFSO.CreateFolder(vFolderPath)