PdcAttachmentList.Add

Code example

This example adds a new attachment to calculationnumber 12345

Dim attachmentlist As PDCEXT.PdcAttachmentList = PDC.App.AttachmentList
if attachmentlist.Read("DO_CALC", "", "12345") then
  dim attachment = attachmentlist.add
  attachment.filename = "C:\test.txt"
  attachment.Save
end if