We’ve created and updating regularly our sample code library so you may quickly learn PDF files batch processing and the step-by-step process in VBScript. PDF files batch processing in VBScript can be implemented with ByteScout PDF Extractor SDK. ByteScout PDF Extractor SDK is the SDK is designed to help developers with pdf tables and pdf data extraction from unstructured documents like pdf, tiff, scans, images, scanned and electronic forms. The library is powered by OCR, computer vision and AI to provide unique functionality like table detection, automatic table structure extraction, data restoration, data restructuring and reconstruction. Supports PDF, TIFF, PNG, JPG images as input and can output CSV, XML, JSON formatted data. Includes full set of utilities like pdf splitter, pdf merger, searchable pdf maker and other utilities.
VBScript, code samples for VBScript, developers help to speed up the application development and writing a code when using ByteScout PDF Extractor SDK. VBScript sample code is all you need: copy and paste the code to your VBScript application’s code editor, add a reference to ByteScout PDF Extractor SDK (if you haven’t added yet) and you are ready to go! Enhanced documentation and tutorials are available along with installed ByteScout PDF Extractor SDK if you’d like to dive deeper into the topic and the details of the API.
ByteScout PDF Extractor SDK is available as free trial. You may get it from our website along with all other source code samples for VBScript applications.
' Create Bytescout.PDFExtractor.TextExtractor object Set extractor = CreateObject("Bytescout.PDFExtractor.TextExtractor") extractor.RegistrationName = "demo" extractor.RegistrationKey = "demo" ' Get all files in folder Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("..\..") Set colFiles = objFolder.Files ' Convert every PDF file to text For Each objFile In colFiles if objFSO.GetExtensionName(objFile) = "pdf" Then ' Load PDF file extractor.LoadDocumentFromFile objFile.Path ' Save extracted text to .txt file extractor.SaveTextToFile Replace(objFile.Name, "." & objFSO.GetExtensionName(objFile),".txt") ' Reset the extractor before load another file extractor.Reset End If Next