Finding the complete path of a folder

[ali_hijazi]

from the macro editor I can know the complete path of the document as follows:

ActiveDocument.Evaluate("left(DocumentPath(), index(DocumentPath(), '\', -1))")         

Now I have another folder at the same level of that of the document how can I get the path of the other folder starting from the above document path?

Please advise