Modifier et creer le chemin d'un fichier

[jlp035]

Bonjour à tous,
Actuellement j'utilise le morceau de code ci dessous pour mémoriser un chemin.
Je souhaite maintenant pouvoir créer un repertoire complémentaire si celui ci n'existe pas et éventuellement créer à l’intérieur de ce répertoire le dossier " documents " via une question voulez vous créer le répertoire Document oui ou non .
Quelle est la fonction à utiliser ?
Merci par avance
Jean-Luc

Private Sub B_Rep_Click()
    'Validation repertoire
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir le répertoire de l'affaire", &H210&, "S:\Genie Climatique\SA\")
    On Error Resume Next
    Set oFolderItem = objFolder.items.Item
    Chemin = oFolderItem.Path
    CheminRepAf = Chemin
End Sub