Batch-export every SolidWorks drawing in a folder to PDF

Option Explicit

' Batch-export every SOLIDWORKS drawing in a folder to PDF (all sheets).
' Edit FOLDER, then run main(). Failures print to the Immediate window
' (Ctrl+G) and the batch keeps going.

Const FOLDER As String = "C:\Drawings\"   ' must end with a backslash

Sub main()
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks

    Dim swExport As SldWorks.ExportPdfData
    Set swExport = swApp.GetExportFileData(swExportPdfData)
    swExport.ViewPdfAfterSaving = False

    Dim fileName As String
    Dim exported As Long, failed As Long
    fileName = Dir$(FOLDER & "*.slddrw")

    Do While fileName <> ""
        Dim errs As Long, warns As Long
        Dim swModel As SldWorks.ModelDoc2
        Set swModel = swApp.OpenDoc6(FOLDER & fileName, swDocDRAWING, _
            swOpenDocOptions_Silent Or swOpenDocOptions_ReadOnly, "", errs, warns)

        If Not swModel Is Nothing Then
            Dim pdfPath As String
            pdfPath = FOLDER & Left$(fileName, Len(fileName) - 7) & ".pdf"

            ' Export every sheet, not just whichever one was active
            Dim swDraw As SldWorks.DrawingDoc
            Set swDraw = swModel
            swExport.SetSheets swExportData_ExportAllSheets, swDraw.GetSheetNames

            If swModel.Extension.SaveAs(pdfPath, 0, 0, swExport, errs, warns) Then
                exported = exported + 1
            Else
                failed = failed + 1
                Debug.Print "EXPORT FAILED: " & fileName & " (error " & errs & ")"
            End If
            swApp.CloseDoc swModel.GetTitle
        Else
            failed = failed + 1
            Debug.Print "COULD NOT OPEN: " & fileName & " (error " & errs & ")"
        End If

        fileName = Dir$()
    Loop

    swApp.SendMsgToUser exported & " PDF(s) exported, " & failed & " failed." & _
        vbNewLine & "Failures (if any) are in the Immediate window (Ctrl+G)."
End Sub