API to save as PDF to network folder

here is my macro for saving a drawing to pdf in the same folder as the pdf.  The filename works for us since we don't have "." in our filenames, if that is not the case for you then some modification will be required.  Also, if you are always saving to the same folder you can hardcode that pretty easy.  The only thing is this doesn't have the save event in it... I've never done an event for SolidWorks but it isn't hard to do in Excel and such.  If you need help with that let me know.

-----------------------

' ******************************************************************************
' This Macro will save the active drawing sheet as a PDF file in the same directory
' ******************************************************************************

Dim swApp As SldWorks.SldWorks
Dim swDrawing As DrawingDoc
Dim swModExtension As ModelDocExtension
Dim swExportData As ExportPdfData
Dim sheetsFileNames As Variant
Dim sheetsFileName As Variant
Dim lWarnings As Long
Dim lErrors As Long
Dim sFileName As String
Dim strings As Variant

Sub SavePDF()

Set swApp = Application.SldWorks
Set swDrawing = swApp.ActiveDoc
Set swModExtension = swDrawing.Extension

If swDrawing Is Nothing Then
    MsgBox ("Drawing must be open")
    Exit Sub
End If

sFileName = swDrawing.GetPathName() 'Gets file sFileName with path
If sFileName = "" Then
    MsgBox ("Please save the drawing before PDF export")
    Exit Sub
Else
    strings = Split(sFileName, ".")
    sFileName = strings(0) & ".PDF"
End If
'MsgBox (sFileName)

Set swExportData = swApp.GetExportFileData(swExportDataFileType_e.swExportPdfData)

boolstatus = swExportData.SetSheets(swExportDataSheetsToExport_e.swExportData_ExportCurrentSheet, Nothing)
'boolstatus = swExportData.SetSheets(swExportDataSheetsToExport_e.swExportData_ExportAllSheets, 1)

'save the file
boolstatus = swModExtension.SaveAs(sFileName, swSaveAsVersion_e.swSaveAsCurrentVersion, swSaveAsOptions_e.swSaveAsOptions_Silent, Nothing, 0, 0)

If boolstatus Then
    MsgBox "PDF Saved"
Else
    MsgBox "Save as PDF failed, Error code:" & lErrors
End If
Set swApp = Nothing
Set swmodel = Nothing
Set swModelDocExt = Nothing
Set swExportData = Nothing
End Sub