Save As Macro - SOLIDWORKS

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim IErrors As Long
Dim IWarnings As Long
Dim folderFullPath As String

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

' check is .SLDPRT is opened
If swModel Is Nothing Then
    MsgBox "[ERROR] No active files found!"
    Exit Sub
End If

' check is active document is .SLDPRT file
If swModel.GetType <> swDocPART Then
    MsgBox "[ERROR] Open .SLDPRT first!"
    Exit Sub
End If

' zooms to fit the model in the graphics area.
swModel.ViewZoomtofit2

' saves the model.
boolstatus = swModel.Save3(swSaveAsOptions_Silent, IErrors, IWarnings)

FilePath = swModel.GetPathName ' Get the full path of the part/assembly file
FileTitle = swModel.GetTitle   ' Get the full part name
FileName = Strings.Left(FileTitle, Len(FileTitle) - 7)

PathSize = Strings.Len(FilePath)    ' Get the length of the full path
TitleSize = Strings.Len(FileTitle)  ' Get the length of the part name
FolderSize = Strings.Len(FilePath) - Strings.Len(FileTitle) ' Get the length of the folder

RootFolderName = Strings.Left(FilePath, FolderSize)     ' Truncate to folder name

MfFolderPath = RootFolderName & "3mf\"
StlFolderPath = RootFolderName & "stl\"
StepFolderPath = RootFolderName & "step\"

'checking existing of 3mf, step, stl folders
If Dir(MfFolderPath) = "" Then
MsgBox "[ERROR] Folders '3mf', 'step' è 'stl' not found!"
MfFolderPath = RootFolderName
StlFolderPath = RootFolderName
StepFolderPath = RootFolderName
'Exit Sub
End If

MfFilePath = MfFolderPath & FileName & ".3mf"
StlFilePath = StlFolderPath & FileName & ".stl"
StepFilePath = StepFolderPath & FileName & ".step"

boolstatus = swModel.SaveAs3(MfFilePath, 0, 2)
boolstatus = swModel.SaveAs3(StlFilePath, 0, 2)
boolstatus = swModel.SaveAs3(StepFilePath, 0, 2)

MsgBox ("3MF, STEP and STL saved!")

'close the document
swApp.CloseDoc FileTitle

' errors
Debug.Print ("Errors as defined in swFileSaveError_e: " & IErrors)

' warnings
Debug.Print ("Warnings as defined in swFileSaveWarning_e: " & IWarnings)

End Sub