opslaan in eventueel nog niet bestaande map

[arierood]

Met deze code wordt het bestand onder de juiste naam opgeslagen.

ActiveWorkbook.SaveAs Range("A1").Value & Format(Range("B1").Value, "dd-mm-yy")

Is het mogelijk om deze in een aparte map op te slaan, b.v. op O:\probeer, waarbij "probeer" eventueel nog niet bestaat en dus moet worden aangemaakt.
Uitleggen is niet mijn sterkste kant, ik hoop dat het begrijpelijk genoeg is.
Bedankt weer voor de aandacht.
Gr. Arie

 

[NuMan]

Probeer onderstaande code voor het maken van map:

If Len(Dir("o:\project" & ".", vbDirectory)) = 0 Then 'Controle of directory bestaat
MkDir "o:\project" 'Zo nodig Directroy maken
End If

succes