Créer un répertoire en VbScript

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)