Get the model name as a custom property

Hello All,

Is there a macro or a way to get the model name printed as a custom property but without the "expression" way.

Why I need this:

As we start to use CUSTOMTOOLS, we changed the way we name our new files, so we need to keep the track of the old model names when we do pack and go.

Thanks all,

SolidworksApi/macros