ByteScout Premium Suite – VBScript – Extract attachments from pdf with pdf extractor sdk

Home
/
Articles
/
ByteScout Premium Suite – VBScript – Extract attachments from pdf with pdf extractor sdk

printable version:
ByteScout-Premium-Suite-VBScript-Extract-attachments-from-pdf-with-pdf-extractor-sdk.pdf

How to extract attachments from pdf with pdf extractor sdk in VBScript using ByteScout Premium Suite

Learn to code in VBScript to extract attachments from pdf with pdf extractor sdk with this step-by-step tutorial

ByteScout simple and easy to understand tutorials are planned to describe the code for both VBScript beginners and advanced programmers. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording and you can use it to extract attachments from pdf with pdf extractor sdk with VBScript.

These VBScript code samples for VBScript guide developers to speed up coding of the application when using ByteScout Premium Suite. IF you want to implement the functionality, just copy and paste this code for VBScript below into your code editor with your app, compile and run your application. This basic programming language sample code for VBScript will do the whole work for you to extract attachments from pdf with pdf extractor sdk.

ByteScout Premium Suite free trial version is available on our website. VBScript and other programming languages are supported.

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