ByteScout PDF Extractor SDK – VBScript – Extract Attachments from PDF

Home
/
Articles
/
ByteScout PDF Extractor SDK – VBScript – Extract Attachments from PDF

printable version:
ByteScout-PDF-Extractor-SDK-VBScript-Extract-Attachments-from-PDF.pdf

How to extract attachments from PDF in VBScript and ByteScout PDF Extractor SDK

Write code in VBScript to extract attachments from PDF with this step-by-step tutorial

The sample source codes on this page shows how to extract attachments from PDF in VBScript. What is ByteScout PDF Extractor SDK? It is the SDK that helps developers to extract data from unstructured documents, pdf, images, scanned and electronic forms. Includes AI functions like automatic table detection, automatic table extraction and restructuring, text recognition and text restoration from pdf and scanned documents. Includes PDF to CSV, PDF to XML, PDF to JSON, PDF to searchable PDF functions as well as methods for low level data extraction. It can help you to extract attachments from PDF in your VBScript application.

Fast application programming interfaces of ByteScout PDF Extractor SDK for VBScript plus the instruction and the code below will help you quickly learn how to extract attachments from PDF. Follow the instructions from the scratch to work and copy the VBScript code. Further enhancement of the code will make it more vigorous.

Trial version of ByteScout PDF Extractor SDK can be downloaded for free from our website. It also includes source code samples for VBScript and other programming languages.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

ExtractAttachments.vbs

      ' Create Bytescout.PDFExtractor.extractor object
Set extractor = CreateObject("Bytescout.PDFExtractor.AttachmentExtractor")
extractor.RegistrationName = "demo"
extractor.RegistrationKey = "demo"

' Load sample PDF document with embedded attachments
extractor.LoadDocumentFromFile("..\..\attachments.pdf")

' Iterate through attachments and save them
For i = 0 To extractor.Count - 1
    ' Save file to current folder with original name
    extractor.Save i, extractor.GetFileName(i)
Next

MsgBox "Done: " & CStr(extractor.Count) & " attachments extracted"

Set extractor = Nothing