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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager