Crear un directorio y los subdirectorios Necesarios

Algunas veces necesitamos crear un árbol de directorio completo, pero a veces existe hasta cierto nivel el árbol, y necesitamos ir viendo si el primer nivel existe, si no existe lo creamos, si no creamos el del siguiente nivel...

Con esta api podemos crear un directorio de un solo, si existe no da error, si no existe lo creara.

Declare long MakeSureDirectoryPathExists in "imagehlp.dll" string lpPath 
?MakeSureDirectoryPathExists("c:/este/es/unarbol/dedirecto/directorio")
?MakeSureDirectoryPathExists("c:/este/es/un/arbol/deprueba/con/hijos1")

Jorge Mota