This isn't the whole code just something you can use:
Const Path As String = "C:\Save File\" 'Change Path here
Dim sBOMName As String
Dim sFileName As String
'Code to get sBomName
Set swFeat = swModel.FirstFeature
Do While Not swFeat Is Nothing
If (swFeat.GetTypeName = "BomFeat") Then
sBOMName = swFeat.Name
Set swFeat = swFeat.GetNextFeature
'Code to get FileName Without Extension
sFileName = Mid(swModel.GetPathName, InStrRev(swModel.GetPathName, ".") - 1)
sFileName = Left(dFileName, InStrRev(dFileName, ".") - 1)
sFileName = Path + sFileName
sFileName = sFileName & "_" & sBomName & ".SLDPRT" 'Change file extension as needed...
Not sure if it's right since I just wrote this here and haven't tested it out!
Hey Kevin, This triggered some thought and I was able to figure it out.. Thank you for your time!
No problem!! Glad I could help!