ByteScout Premium Suite – VBScript – Search barcodes in documents and write results to file with barcode reader sdk

Home
/
Articles
/
ByteScout Premium Suite – VBScript – Search barcodes in documents and write results to file with barcode reader sdk

printable version:
ByteScout-Premium-Suite-VBScript-Search-barcodes-in-documents-and-write-results-to-file-with-barcode-reader-sdk.pdf

How to search barcodes in documents and write results to file with barcode reader sdk in VBScript with ByteScout Premium Suite

Learn to search barcodes in documents and write results to file with barcode reader sdk in VBScript

The sample shows instructions and algorithm of how to search barcodes in documents and write results to file with barcode reader sdk and how to make it run in your VBScript application. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording and you can use it to search barcodes in documents and write results to file with barcode reader sdk with VBScript.

These VBScript code samples for VBScript guide developers to speed up coding of the application when using ByteScout Premium Suite. Just copy and paste the code into your VBScript application’s code and follow the instructions. Complete and detailed tutorials and documentation are available along with installed ByteScout Premium Suite if you’d like to learn more about the topic and the details of the API.

ByteScout provides the free trial version of ByteScout Premium Suite along with the documentation and source code samples.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

TestBarcodeReadingFromPDF.vbs

      ' Create BarCodeReader object
Set bc = CreateObject("Bytescout.BarCodeReader.Reader")

' Limit barcode search to PDF417 barcodes only
bc.BarcodeTypesToFind.PDF417 = True

' Create File System object
Set FSO = CreateObject("Scripting.FileSystemObject")

' Get folder object (current folder)
Set objFolder = FSO.GetFolder(".")

' Get file list
Set files = objFolder.Files

' Create output file
Set TS = FSO.CreateTextFile("output.txt")

' Run barcode search for PDF and TIFF files
For Each file in files

	ext = UCase(FSO.GetExtensionName(file))	
	If ext = "PDF" Or ext = "TIF" Then
		bc.ReadFromFile file.Name
		For i = 0 To bc.FoundCount - 1
			' Write found barcode information to output file
			TS.Write("File: """ & file.Name & """ Page " & CStr(bc.GetFoundBarcodePage(i)) & ": Barcode: " & bc.GetFoundBarcodeValue(i)) & vbCRLF
		Next
    End If 
    
Next

TS.Close

Set bc = Nothing
Set TS = Nothing
Set FSO = Nothing

MsgBox "Done! See output.txt with found results"