Macro save dxf, dwg, step, sat in one folder with name of part

Hello

i use this macro every day. It save my parts and drawings in a folder...... but I have more ideas to make my work easy:

Is it possible, to put the number of the part in front of the folder. For exemble i have part no 546 and keep everything in folder  \\546-dxf-dwg-sat-step. Thanks a lot

SolidworksImport export