This prolific sample source code in VBScript for ByteScout PDF Suite contains various functions and other necessary options you should do calling the API to add file attachment to pdf with pdf sdk. Simply copy and paste in your VBScript project or application you and then run your app! Enjoy writing a code with ready-to-use sample VBScript codes.
ByteScout provides the free trial version of ByteScout PDF Suite along with the documentation and source code samples.
' This example demonstrates how to attach a file to PDF document. ' Create Bytescout.PDF.Document object Set pdfDocument = CreateObject("Bytescout.PDF.Document") pdfDocument.RegistrationName = "demo" pdfDocument.RegistrationKey = "demo" Set comHelpers = pdfDocument.ComHelpers ' Add page Set page1 = comHelpers.CreatePage(comHelpers.PAPERFORMAT_A4) pdfDocument.Pages.Add(page1) ' Attach file Set fileAttachment = comHelpers.CreateFileAttachmentAnnotation("sample_attachment.txt", 20, 20, 20, 20) fileAttachment.Icon = comHelpers.FILEATTACHMENTANNOTATIONICON_PAPERCLIP page1.Annotations.Add(fileAttachment) ' Instruct PDF viewer application to show attachments pane on startup pdfDocument.PageMode = comHelpers.PAGEMODE_ATTACHMENT ' Save document to file pdfDocument.Save("result.pdf") ' Open document in default PDF viewer app Set shell = CreateObject("WScript.Shell") shell.Run "result.pdf", 1, false
sample_attachment.txt 1234567890 abcdefghijklmnopqrstuvwxyz