diff --git a/Modules.Windream/Windream2.vb b/Modules.Windream/Windream2.vb index 34f8a875..126e83a7 100644 --- a/Modules.Windream/Windream2.vb +++ b/Modules.Windream/Windream2.vb @@ -485,7 +485,7 @@ Public Class Windream2 Case Constants.SEARCH_TYPE_QUICK_SEARCH Dim oQuickSearch As New WMQuickSearch With { .WMSession = Session, - .SearchProfilePath = SearchFilePath + .SearchProfilePath = oProfilePath } oQuickSearch.ClearSearch() oQuickSearch.LoadSearchProfile(oProfileName) @@ -494,7 +494,7 @@ Public Class Windream2 Case Constants.SEARCH_TYPE_INDEX_SEARCH Dim oIndexSearch As New WMIndexSearch With { .WMSession = Session, - .SearchProfilePath = SearchFilePath + .SearchProfilePath = oProfilePath } oIndexSearch.ClearSearch() oIndexSearch.LoadSearchProfile(oProfileName) @@ -503,7 +503,7 @@ Public Class Windream2 Case Constants.SEARCH_TYPE_OBJECTTYPE_SEARCH Dim oObjecttypeSearch As New WMObjectTypeSearch With { .WMSession = Session, - .SearchProfilePath = SearchFilePath + .SearchProfilePath = oProfilePath } oObjecttypeSearch.ClearSearch() oObjecttypeSearch.LoadSearchProfile(oProfileName) @@ -676,7 +676,7 @@ Public Class Windream2 Return oResult End If - If TypeOf oValues Is Object Then + If TypeOf oValues Is IEnumerable Then For Each oValue In oValues oResult.Add(oValue) Next