BatchProcessing.vbs
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | ' 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 |
Click here to get your Free Trial version of the SDK
also available as: