How to extract images from PDF in Visual Basic 6 and VBScript

Bytescout PDF Extractor SDK allows you to get images from pdf without any other software installed on your computer. The sample below demonstrates how to extract images from PDF in Visual Basic 6 and VBScript

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

' Load sample PDF document
extractor.LoadDocumentFromFile("....sample1.pdf")

i = 0

' Initialize image enumeration
If extractor.GetFirstImage() Then
    Do
        outputFileName = "image" & i & ".png"

        ' Save image to file
        extractor.SaveCurrentImageToFile outputFileName

        i = i + 1

    Loop While extractor.GetNextImage() ' Advance image enumeration
End If

' Open firest output image in default associated application
Set shell = CreateObject("WScript.Shell")
shell.Run "image0.png", 1, false
Set shell = Nothing

Set extractor = Nothing