Ricreazione ricorsiva cartelle

Se volete creare una cartella c'è il comando create folder. Ma se specificate un percorso che indica delle cartelle che non esistono prima dell'ultima, giustamente la cartella non viene creata.
Se volete creare tutto un albero di cartelle in un colpo solo vi consiglio questo messaggio:

on recurFoldCreation tFolder
   set the itemDel to "/"
   repeat with i = 1 to the number of items of tFolder
      put item 1 to i of tFolder into tFolderToCreate
      create folder tFolderToCreate
   end repeat
end recurFoldCreation

semplice ed efficiente.