Module1.vb
Imports Bytescout.PDFExtractor
Module Module1
Sub Main()
' Create Bytescout.PDFExtractor.AttachmentExtractor instance
Dim extractor = New AttachmentExtractor()
extractor.RegistrationName = "demo"
extractor.RegistrationKey = "demo"
' Load sample PDF document
extractor.LoadDocumentFromFile(".\attachments.pdf")
For i As Integer = 0 To extractor.Count - 1
Console.WriteLine("Saving attachment: " + extractor.GetFileName(i))
' Save attachment to file
extractor.Save(i, extractor.GetFileName(i))
Console.WriteLine("File size: " + extractor.GetSize(i).ToString())
Next
' Cleanup
extractor.Dispose()
End Sub
End Module
Click here to get your Free Trial version of the SDK
also available as: