Saving drawing as PDF and flat pattern as DXF

I've been doing some digging for the last few hours and this is what I have so far:

Option Explicit


Dim swApp As SldWorks.SldWorks


Sub main()


Dim swModel As SldWorks.ModelDoc2  
Dim vConfNameArr As Variant  
Dim vConfName As Variant  
Dim bShowConfig As Boolean  
Dim bRebuild As Boolean  
Dim bRet As Boolean  
Dim swDocSpecification As SldWorks.DocumentSpecification
Dim Errors As Long
Dim Warning As Long


Dim fileType As Long
fileType = swModel.GetType
Dim fileName As String
fileName = swModel.GetPathName().Remove(0,  swModel.GetPathName().LastIndexOf("\") + 1)
Dim fileRevision As String
swCustPropMgr.Get3 "Revision", True, fileRevision, Empty
Dim fileRecipient As String
fileRecipient = {Recipient}
Dim varDate As Date 
varDate = Date.Now()
Dim fileDate As String
fileDate = regDate.ToString("yyyy_MM_dd")
Dim vaultPath As String
vaultPath = 
Dim savePath As String
savePath = vaultPath & "/Document Transmittals/" & fileRecipient & "/" & fileDate & "/"
Dim saveName As String
saveName = fileName & "-" & fileRevision


If fileType = SwConst.swDocDRAWING then
swModel.Extension.SaveAs savePath & saveName & ".pdf", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, Errors, Warnings


Elseif fileType = SwConst.swDocPart then
SAVE AS DXF


End If






End Sub

Still need to figure out a path for the vault and how to check if a part has sheet metal features and if it does make a DXF.

Thanks,
Tom.