How to extract images from PDF (page by page) in Visual Basic 6 and VBScript

Bytescout PDF Extractor SDK helps you to get images from pdf without Adobe Reader or any other software installed. The sample code below shows how to extract images from PDF (page by page) 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")

' Get page count
pageCount = extractor.GetPageCount()
		
' Extract images from each page
For i = 0 To pageCount - 1

	j = 0
	
	' Initialize page images enumeration
	If extractor.GetFirstPageImage(i) Then
	    Do
	        outputFileName = "page" & i & "image" & j & ".png"

	        ' Save image to file
	        extractor.SaveCurrentImageToFile outputFileName

	        j = j + 1

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

' Open first output file in default associated application
Set shell = CreateObject("WScript.Shell")
shell.Run "page0image0.png", 1, false
Set shell = Nothing

Set extractor = Nothing