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.