PDF_to_Image.vbs
if WScript.Arguments.Length < 2 Then
WScript.Echo "Usage: cscript PDF_to_Image.vbs <input_folder> <output_folder>"
WScript.Quit
End If
' Create Bytescout.PDFRenderer.RasterRenderer object
Set renderer = CreateObject("Bytescout.PDFRenderer.RasterRenderer")
renderer.RegistrationName = "demo"
renderer.RegistrationKey = "demo"
' Render PDF document at 96 DPI - default PC display resolution
' To get higher quality output, set 200, 300 or more
Dim renderingResolution
renderingResolution = 96
' Image format: 0 - BMP; 1 - JPEG; 2 - PNG; 3 - TIFF; 4 - GIF
Dim outputImageFormat
outputImageFormat = 2
Dim pageIndex
pageIndex = 0
' Create File System object
Set FSO = CreateObject("Scripting.FileSystemObject")
' Get folder object (current folder)
Set inputFolder = FSO.GetFolder(WScript.Arguments.Item(0))
' Get file list
Set files = inputFolder.Files
' Prepare output folder
outputFolder = WScript.Arguments.Item(1)
If FSO.FolderExists(outputFolder) Then
FSO.DeleteFolder outputFolder, True
End If
FSO.CreateFolder outputFolder
' Run barcode search for PDF and TIFF files
For Each file in files
ext = UCase(FSO.GetExtensionName(file))
If ext = "PDF" Then
WScript.Echo "Processing file " & FSO.GetFileName(file)
renderer.LoadDocumentFromFile file
fileName = FSO.BuildPath(WScript.Arguments.Item(1), FSO.GetFileName(file) & ".page0.png")
renderer.Save fileName, outputImageFormat, pageIndex, renderingResolution
WScript.Echo " first page converted to " & fileName
End If
Next
WScript.Echo "Done."
Set renderer = Nothing
Set FSO = Nothing
PDF_to_Image.bat
@echo off REM Run VBScript through the command line REM The script convert first pages of all PDF documents in the outer folder containing sample files (..\..) REM and puts generated images to "output" sub-folder. cscript.exe "PDF_to_Image.vbs" ..\.. output pause