Création de dossiers

Bonsoir
Je me remets à la prog VB. Un amis me demande de créer une application, pour gérer les dossiers. Je cherche à créer un dossier et plusieurs sous dossier, à la même racine.

Ce que j'ai fais mais les fichiers sont des sous sous dossiers.

Code:

MkDir(objFolderItem.Path & "\" & "Dossier Affaires FIT" & "/" & affitech & "/" & PHOTOS)

Pour un ça fonctionne, mais j'aimerai avoir au même niveau que photos, Documentation, devis, plans, etc.

Si quelqu'un peut m'aider, merci par avance.

Philippe