How to get Current Active Folder Path?

Here is the code to get the document name and you can use the sub-string to get the path

If swModelDoc.GetType <> 3 Then
        sModelName = Left(swModelDoc.GetTitle, InStrRev(swModelDoc.GetTitle, ".") - 1): Debug.Print "File name without Extension: " & sModelName
    Else
        sModelName = Left(swModelDoc.GetTitle, InStrRev(swModelDoc.GetTitle, "-") - 2)
    End If

GetPathName is the easiest to use with either file type to get the folder or file name with/without extension.

Option Explicit
Dim swApp        As SldWorks.SldWorks
Dim swModel      As SldWorks.ModelDoc
Dim MyPath       As String
Dim FileName     As String

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

'Get Folder Path
MyPath = Left(swModel.GetPathName, InStrRev(swModel.GetPathName, "\"))
Debug.Print MyPath


'Get File Name Withot Extension
FileName = Mid(swModel.GetPathName, InStrRev(swModel.GetPathName, "\") + 1)
FileName = Left(FileName, InStrRev(FileName, ".") - 1) 'Remove -1 if you need the . after file name
Debug.Print FileName


End Sub