Köszönöm mindenkinek, aki segíteni próbált.

A megoldás megszületett, bár korántsem az én érdemem.

A makróban:

 

If FSO.FolderExists(ment2)

Then        

MsgBox ment2 & " elérési út létezik", vbInformation, ""    

Else          

MsgBox ment2 & " elérési út nem létezik", vbInformation, "Nem létező mappa"      

MakeMultiStepDirectory (ment2)     

End If

 

A vastagon szedett rész új, és egy hasonló nevü modul a megoldás kulcsa.

Sajnos még nem értem, de tanulmányozom.  Ha valakit érdekel:

 

http://data.hu/get/3791573/MultiStepDirectory_Modul.txt&filename=MultiStepDirectory_Modul.txt&filesize=5&filesizetxt=KB',2);

 

Mégegyszer köszönöm mindenkinek.