Module1.vb
Imports Bytescout.PDFExtractor Imports System.IO Module Module1 Sub Main() ' Create Bytescout.PDFExtractor.TextExtractor instance Dim extractor = New TextExtractor() extractor.RegistrationName = "demo" extractor.RegistrationKey = "demo" ' Get PDF files Dim pdfFiles() = Directory.GetFiles(".", "*.pdf") For Each file As String In pdfFiles ' Load document extractor.LoadDocumentFromFile(file) ' Save extracted text to .txt file extractor.SaveTextToFile(Path.ChangeExtension(file, ".txt")) ' Reset the extractor before load another file extractor.Reset() Next ' Cleanup extractor.Dispose() End Sub End Module
Click here to get your Free Trial version of the SDK
also available as: