Function CreateFolder

[Galex]

Ho un bel problema con la creazione di una cartella:

la funzione con FSO è questa, e fin qui tutto ok:

Function CreateFolder
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\cartella")
End Function


ma se io non devo creare una sola cartella, ma una sottocartella di una cartella,entrambe inesistenti

c:\cartella\sottocartella

come faccio,devo ripetere la funzione 2 volte per ogni acrtella?non c'è un metodo migliore?

[weppos]

Si, devi eseguirla 2 volte e la seconda volta passando come cartella di destinazione il percorso di quella appena creata.

[Galex]

si,infatti ho fatto una cosa del genere,ma speravo ci fosse una funzione specifica che creasse anche sottocartelle di cartelle non esistenti...tutto in una sola volta

grazie della risposta