I am trying to use this code for a macro but it also adds the file type with it. Is there a way to take out the file type so all we see is the file name without file type in this?

Dim swApp as Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, Longwarnings As Long

Sub main ()

Set swApp = Application.SldWorks

     Set swModel = swApp.ActiveDoc

     vConfNameArr = swModel.GetConfigurationNames

     For i=0 To UBound (vConfNameArr)

       Set swConfig = swModel.GetConfigurationByName (vConfNameArr (I))

          swConfig.Name = (swModel.GetTitle)

     Next I

End Sub