ByteScout Premium Suite - VBScript - Rename files to barcode values with barcode reader sdk - ByteScout

ByteScout Premium Suite – VBScript – Rename files to barcode values with barcode reader sdk

  • Home
  • /
  • Articles
  • /
  • ByteScout Premium Suite – VBScript – Rename files to barcode values with barcode reader sdk

How to rename files to barcode values with barcode reader sdk in VBScript using ByteScout Premium Suite

Learn to code in VBScript to rename files to barcode values with barcode reader sdk with this step-by-step tutorial

Sample source code below will display you how to manage a complex task like rename files to barcode values with barcode reader sdk in VBScript. ByteScout Premium Suite: the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording. It can rename files to barcode values with barcode reader sdk in VBScript.

Want to quickly learn? This fast application programming interfaces of ByteScout Premium Suite for VBScript plus the guidelines and the code below will help you quickly learn how to rename files to barcode values with barcode reader sdk. IF you want to implement the functionality, just copy and paste this code for VBScript below into your code editor with your app, compile and run your application. Applying VBScript application mostly includes various stages of the software development so even if the functionality works please test it with your data and the production environment.

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)

RenameFilesToBarcodeValues.vbs
      
if WScript.Arguments.Count < 2 Then MsgBox "Run with the folder path as the argument" & vbCRLF & vbCRLF & "RenameFiles.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" ' make sure they all are upper cases inputImagesExtensions = UCASE(inputImagesExtensions) Set bc = CreateObject("Bytescout.BarCodeReader.Reader") ' Set barcode types to find: bc.BarcodeTypesToFind.Code39 = True bc.BarcodeTypesToFind.QRCode = True bc.BarcodeTypesToFind.PDF417 = True Set objinputFolder = objFSO.GetFolder(WScript.Arguments(0)) ' output folder set objOutputFolder = objFSO.GetFolder(WScript.Arguments(1)) Call ShowSubfolders (objinputFolder) WScript.Quit 0 Sub ShowSubFolders(fFolder) Set objFolder = objFSO.GetFolder(fFolder.Path) Set colFiles = objFolder.Files For Each objFile in colFiles ' check if allowed extension If inStr(inputImagesExtensions, UCase(objFSO.GetExtensionName(objFile.name)))>0 Then ' read barcode from filename WScript.Echo "Reading from: " & objFile.Path bc.ReadFromFile objFile.Path ' getting the sub folder path outputSubFolder = Replace(objFile.Path, objinputFolder.Path, "") outputSubFolder = Replace(outputSubFolder, objFile.Name, "") ' rename the file to the value of the very first barcode found on this image or pdf newFileName = bc.GetFoundBarcodeValue(0) & "." & objFSO.GetExtensionName(objFile.name) ' replace some special characters as they may not be allowed for use in filename newFileName = Replace(newFileName, "<", "_") newFileName = Replace(newFileName, ">", "_") ' first check if output subfolder exists if Not objFSO.FolderExists (objOutputFolder.Path & outputSubFolder) Then objFSO.CreateFolder objOutputFolder.Path & outputSubFolder End If WScript.Echo "Copying and renaming " & objFile.path & " into " & objOutputFolder.Path & outputSubFolder & newFileName ' copying the source file into output folder with new filename based on the barcode value objFSO.CopyFile objFile.path, objOutputFolder.Path & outputSubFolder & newFileName End If Next For Each Subfolder in fFolder.SubFolders ShowSubFolders(Subfolder) Next End Sub

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

RunRenaming.bat
      
REM running from the command line cscript.exe RenameFilesToBarcodeValues.vbs "input" "output" pause

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next