To Know file location in SolidWorks by Macro (API )

Macro Program

For print / msg of file location where it is saved.
*For find the location you must saved your file.

Sub main ( )

Dim swapp As SldWorks.SldWorks
Set swapp = Application.SldWorks

Dim swmodel As ModelDoc2
Set swmodel = swapp.ActiveDoc

filelocation = swmodel.GetPathName

Msgbox filelocation

End Sub