Important Update
Sample source code below will display you how to manage a complex task like batch read barcodes from files with barcode reader sdk in VBScript. ByteScout Data Extraction Suite is the bundle that includes three SDK tools for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK. It can batch read barcodes from files with barcode reader sdk in VBScript.
Want to save time? You will save a lot of time on writing and testing code as you may just take the VBScript code from ByteScout Data Extraction Suite for batch read barcodes from files with barcode reader sdk below and use it in your application. Just copy and paste the code into your VBScript application’s code and follow the instructions. Check VBScript sample code samples to see if they respond to your needs and requirements for the project.
If you want to try other source code samples then the free trial version of ByteScout Data Extraction Suite is available for download from our website. Just try other source code samples for VBScript.
On-demand (REST Web API) version:
Web API (on-demand version)
On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)
if WScript.Arguments.Count < 2 Then
MsgBox "Run with the folder path as the argument" & vbCRLF & vbCRLF & "BatchReadFromFiles.vbs <InputFolder> <OutputFolder>"
WScript.Quit 0
End If
Set objFSO = CreateObject("Scripting.FileSystemObject")
' define allowed input images extensions
inputImagesExtensions = "JPG,JPEG,PNG,BMP,PDF,TIF"
Set reader = CreateObject("Bytescout.BarCodeReader.Reader")
' Set barcode types for searching
reader.BarcodeTypesToFind.Code39 = True
reader.BarcodeTypesToFind.QRCode = True
reader.BarcodeTypesToFind.PDF417 = True
reader.BarcodeTypesToFind.EAN13 = True
Set objInputFolder = objFSO.GetFolder(WScript.Arguments(0))
Set objResultsFile = objFSO.CreateTextFile(WScript.Arguments(1), True)
Call ProcessFolder(objInputFolder)
WScript.Quit 0
Sub ProcessFolder(folder)
Set objFolder = objFSO.GetFolder(folder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
' Check the file type
If inStr(inputImagesExtensions, UCase(objFSO.GetExtensionName(objFile.Name))) > 0 Then
' Read barcode from file
WScript.Echo "Reading from: " & objFile.Path
reader.ReadFromFile objFile.Path
Dim csv
csv = reader.ExportFoundBarcodesToCSV_4
objResultsFile.Write csv
End If
Next
For Each subFolder in folder.SubFolders
ProcessFolder subFolder
Next
End Sub
60 Day Free Trial or Visit ByteScout Data Extraction Suite Home Page
Explore ByteScout Data Extraction Suite Documentation
Explore Samples
Sign Up for ByteScout Data Extraction Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
REM running from the command line
cscript.exe BatchReadFromFiles.vbs "input" "results.csv"
pause
60 Day Free Trial or Visit ByteScout Data Extraction Suite Home Page
Explore ByteScout Data Extraction Suite Documentation
Explore Samples
Sign Up for ByteScout Data Extraction Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
60 Day Free Trial or Visit ByteScout Data Extraction Suite Home Page
Explore ByteScout Data Extraction Suite Documentation
Explore Samples
Sign Up for ByteScout Data Extraction Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
also available as: