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?