I am trying to build an index of documents in a folder with hOOt. I am getting an error at this line: Dim hOOters As New hOOt(SearchFolder, "documents", True)
saying "type expected"
https://www.codeproject.com/Articles...mozTocId150639
saying "type expected"
Code:
Imports hOOt
Public Class CreateIndex
Private Sub BtnClose_Click(sender As Object, e As EventArgs) Handles BtnClose.Click
Close()
End Sub
Private Sub CreateIndex_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim SearchFolder As String = "C:\INFORMATIE OPSLAG - GERUBRICEERD\2016"
Dim hOOters As New hOOt(SearchFolder, "documents", True)
hOOters.FreeMemory(False) ' will free bitmap memory
Dim dirInfo As New IO.DirectoryInfo(SearchFolder)
Dim files As IO.FileInfo() = dirInfo.GetFiles()
'Dim file As IO.FileInfo
For Each Filename In files
If Filename.Extension = ".pdf" Or Filename.Extension = ".PDF" Then
Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText(Filename.ToString)
hOOters.Index(New Document(Filename, fileReader), True)
End If
Next
'optimize the bitmap index size
hOOters.OptimizeIndex()
End Sub
End Class