Création récursive de répertoires

Bonjour,

je poste ce modeste script afin d'aider ceux qui comme moi ont cherchés, cherchés, cherchés, longtemps avant de trouver le bon code qui va bien.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Dim fso Set fso = CreateObject("Scripting.FileSystemObject")   CreerRep("c:\data\toto\titi\")   Sub CreerRep(Chemin) If Not fso.FolderExists(chemin) Then CreerRep(fso.GetParentFolderName(chemin)) fso.CreateFolder(chemin) End If End Sub

---

:merci: :king:

:king: