Sample source code below will show you how to cope with a difficult task like add file attachment to PDF in VBScript and VB6. ByteScout PDF SDK can add file attachment to PDF. It can be used from VBScript and VB6. ByteScout PDF SDK is the library for pdf documents generation, modification and updates. Can also generate and fill PDF forms. Provides support for text (fonts, style, size, font family), layers, pdf form fields, vector and raster drawings.
VBScript and VB6 code samples for VBScript and VB6 developers help to speed up coding of your application when using ByteScout PDF SDK. In order to implement the functionality, you should copy and paste this code for VBScript and VB6 below into your code editor with your app, compile and run your application. You can use these VBScript and VB6 sample examples in one or many applications.
ByteScout free trial version is available for download from our website. It includes all these programming tutorials along with 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