Hi!

I want to save the drawing PDF in the file location into a folder called "PDF" using VBA macro.

I am using the below code but its getting saved in the file location itself:

Sub main()

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swExportPDFData As SldWorks.ExportPdfData
Dim strFilename As String
Dim status As Boolean
Dim errors As Long, warnings As Long
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

status = swModel.Save3(swSaveAsOptions_e.swSaveAsOptions_Silent, errors, warnings)

If (swModel.GetType = swDocDRAWING) Then
strFilename = swModel.GetPathName
strFilename = Left(strFilename, Len(strFilename) - 6) & "pdf"

Set swExportPDFData = swApp.GetExportFileData(1)
swModel.Extension.SaveAs strFilename, 0, 0, swExportPDFData, 0, 0

End If

End Sub

Please help me with the code.

Regards,

Mohammed Shuaib