Retrieve Parent Foldername from (drawing)File

Not so experienced in VBA i'm looking for a solution to retrieve the foldername from a drawingfile and make it a custom property.

The idea is that once you've created a folder for a new project/ customer the custom property is 'looking' for the parent folder which contains the projectnumber and customer divided by a ''-'', something like: P090123 - Customer name.

This could be very helpfull in combinaton with Pack and Go.

Anyone ?

SolidworksApi macros