Batch-export sheet-metal flat patterns to DXF

Option Explicit

' Batch-export the flat pattern of every sheet-metal part in a folder to DXF.
' Edit FOLDER, then run main(). Non-sheet-metal parts are skipped and logged.

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

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

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

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

        If Not swModel Is Nothing Then
            Dim swPart As SldWorks.PartDoc
            Set swPart = swModel

            ' A part with no sheet-metal feature has no flat pattern to export
            If Not swModel.FeatureByName("Flat-Pattern") Is Nothing Then
                Dim dxfPath As String
                dxfPath = FOLDER & Left$(fileName, Len(fileName) - 7) & ".dxf"

                If swPart.ExportFlatPatternView(dxfPath, 0) Then
                    exported = exported + 1
                Else
                    failed = failed + 1
                    Debug.Print "EXPORT FAILED: " & fileName
                End If
            Else
                skipped = skipped + 1
                Debug.Print "NOT SHEET METAL (no Flat-Pattern feature): " & fileName
            End If
            swApp.CloseDoc swModel.GetTitle
        Else
            failed = failed + 1
            Debug.Print "COULD NOT OPEN: " & fileName
        End If

        fileName = Dir$()
    Loop

    swApp.SendMsgToUser exported & " DXF(s) exported, " & skipped & _
        " skipped (not sheet metal), " & failed & " failed." & vbNewLine & _
        "Details are in the Immediate window (Ctrl+G)."
End Sub