referere til en mappe et niveau højere oppe

Jeg ved ikke lige om der findes et smartere kald, men ellers kan du jo blot finde den sidste \ i din CurrentProject.Path

Startpos = Len(CurrentProject.Path)
Do Until ParentPos > 0
    Startpos = Startpos - 1
    ParentPos = InStr(Startpos, CurrentProject.Path, "\")
Loop
ParentFolder = Left(CurrentProject.Path, ParentPos)

Smukt - det fungerer i hvert fald.
Tak for hjælpen.