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