Créer dossier et sous dossier

[Chris57]

Bonjour à tous,

Je cherche une macro qui puisse créer un dossier et ses sous dossiers :

Par exemple j'ai un dossier C:\TEST

Dans la cellule A1 j'ai ce texte : C:\TEST\DOS1\DOS2

Il me faudrai une commande pour créer à la fois le sous dossier DOS1 et le DOS2


La fonction MkDir n'est pas capable de créér \DOS1\DOS2 en une fois



NB : il est possible que je doives créer plusieurs sous-sous dossiers genre C:\TEST\REP1\REP2\REP3\REP4

 

[job75]

Re : Créer dossier et sous dossier

Bonsoir Chris57,

Sub CreerDossiers()
Dim txt$, s, i%
txt = [A1] 'txt = "C:\TEST\DOS1\DOS2"
s = Split(txt, "\")
On Error Resume Next
txt = s(0)
For i = 1 To UBound(s)
  txt = txt & "\" & s(i)
  MkDir txt
Next
End Sub

A+

 

[Chris57]

Re : Créer dossier et sous dossier

ça fonctionne à merveille !!!