Een "diepe" subdirectory in 1 keer aanmaken

[cow18]

hallo, ik heb het ooit eens gezien, maar hoe maak je een subdirectory en alle er tussenliggende nog niet bestaande subdirectories in 1 vba-commando aan ? Ik heb dat ooit eens gezien, maar waar ?
dus ik wil deze subdirectory aanmaken, wetende dat "c:\a 1" ook nog niet eens bestaat
"C:\a 1\B 2\C 3\D 4\E 5\F 6\G 7"
Ik kan hem wel recursief aanmaken, maar dat is te gemakkelijk

 

[snb]

bijv.

Sub M_snb_folder_met_subfolders()
    Shell "cmd /c md G:\XYZ\ABC\DEF", 0
End Sub

of

CreateObject("shell.application").Namespace("G:\").NewFolder "OF\AA1\BB2"

 

[cow18]

hey, dag SNB, ik wist dat het gemakkelijk was, maar was in de verkeerde richting aan het zoeken.
Enorm bedankt.