Dim LfSearchResults As LFSearchResultListing 

LfSearchResults   = Search()

 For i As Integer = 1 To LfSearchResults.RowCount
                            If LfSearchResults.DatumByTemplateFieldAsString(i, "Category - Personal Files") = "Something" Then

'''DO SOMETHING

End IF  ' end of if

Next  // end of for loop

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SEARCH FUNCTION

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Function Search() As LFSearchResultListing

        ' Creates the database object for the specified connection.

        ' Creates a search object for the database.
        Dim lfSearchObject As New LFSearch
        lfSearchObject = laserficheDB.CreateSearch
        ' Creates a search string which will be used to search the repository.  
        Try
            Dim searchstring As String = ""

            searchstring = "{LF:LookIn=""" + _filePath + _fundName + """, Subfolders=" + _subFolders + "}"

            If _startDate <> "" And _endDate <> "" Then
                searchstring += " &   {[Investment Files]:[Effective Date]>=""" + _startDate + """, <=""" + _endDate + """}"
            ElseIf _startDate <> "" And _endDate = "" Then
                searchstring += " &  {[Investment Files]:[Effective Date]>=""" + _startDate + """}"
            ElseIf _endDate <> "" And _startDate = "" Then
                searchstring += " & {[Investment Files]:[Effective Date]<=""" + _endDate + """}"
            End If

            If _subCategory <> "" Then
                searchstring += " & {[Investment Files]:[Sub-Category - Investment Files]=""*" + _subCategory + "*""} "
            End If
            If _category <> "" Then
                searchstring += " & {[Investment Files]:[Category - Investment Files]=""*" + _category + "*""} "
            End If

            If _searchText <> "" Then
                searchstring += " & (""" + _searchText + """ | {[]:[]=""*" + _searchText + "*""} | {[]:[]=""" + _searchText + """}) & {[Investment Files]}"
            End If
            ' Sets the search command to your search string.

            lfSearchObject.Command = searchstring
            ' Begins the search.
            lfSearchObject.BeginSearch(True)

            ' Continues to run the search until it is complete.
            While lfSearchObject.SearchStatus = Search_Status.SEARCH_STATUS_IN_PROGRESS
                
                lfSearchObject.UpdateSearchStatus()
            End While

        Catch ex As Exception

        End Try

        ' Specifies what information about search hits you want to retrieve.  
        ' Adds a column for each piece of information we will retrieve about the 
        ' folder.
        Dim params As LFSearchListingParams = New LFSearchListingParams
        params.AddStandardColumn(Column_Type.COLUMN_TYPE_ID)
        params.AddStandardColumn(Column_Type.COLUMN_TYPE_NAME)
        params.AddStandardColumn(Column_Type.COLUMN_TYPE_MIMETYPE)
        params.AddStandardColumn(Column_Type.COLUMN_TYPE_PATH)
        params.AddStandardColumn(Column_Type.COLUMN_TYPE_CREATEDATE)
        params.AddTemplateFieldColumn("Category - Personal Files")
        params.AddTemplateFieldColumn("Sub-Category - Personal Files")
        params.AddTemplateFieldColumn("Effective Date")
        params.AddTemplateFieldToSortBy("Effective Date", Sort_Direction.SORT_DIRECTION_DESC)
        ' Retrieves the specified information for the list of search hits.  The '0' 
        ' indicates that no rows will be pre-loaded.
        Dim results As LFSearchResultListing = lfSearchObject.GetSearchResultListing(params, 0)

        ' Returns the list of search results.
        lfSearchObject.Dispose()
        Return results

    End Function