Copy properties to PDF file?

I'm trying to write a simple macros that we can create a pdfof a drawing that copies some of the file properties into the pdf.

The current pdf macro we use saves it as"FILENAME"_Rev_"REVISION".PDF and is sent to the appropriatedirectory. We then manually have to move the older rev out and intothe archive folder

Since we are in the process of implementing Enterprise I found outwe could keep it as one file now so we don't confuse purchasingwith more than one rev in the folder (I'm guilty of that!). Theydon't care about which is the latest, just as long as they get itand we don't have to move files. The only thing is I'd like it tocopy over the revision property for now (from there I should beable to do the rest).

What do I need to add? This is the current code (I still need toremove the rev part in the filename)

 


Dim SwApp, Model As Object
Dim ModName, NewName, Rev, fName As String


Sub main()

Set SwApp = CreateObject("SldWorks.Application")
Set Model = SwApp.ActiveDoc

ModName = Model.GetTitle
ModName = Left(ModName, InStr(1, ModName, " ") - 1)
Rev = Model.CustomInfo("REVISION")
fName = ModName + "_Rev" + Rev

pdf = "P:\PDM\02 - Released\" + fName + ".PDF"
Model.SaveAs2 pdf, 0, True, False

End Sub

(BTW, I'm JUST getting into this macro stuff...still waitingfor a course to come up)
Thanks,
JeffSolidworksApi macros