Code to find a folder in a workspace using client and matter custom fields fails.

MarcelVanKempen

I have got a folder that has been profiled with a client and matter number. I need to find it for a client customization but the sample code supplied in What's New in iManage.dll for WorkSite 8.0 fails. Can anybody supply the correct code?


Sub FindFolder()

Dim oDMS As IManDMS
Dim oSession As IManSession
Dim oWorkArea As IManWorkArea
Dim oFolder As IManFolder
Dim oFolders As IManFolders
Dim oFolderSearchParams As IManFolderSearchParameters
Dim oManStrings As ManStrings

Dim ItemByIndex As Integer

Set oDMS = New ManDMS
Set oSession = oDMS.Sessions.Add("D4MT")

oSession.TrustedLogin

Set oWorkArea = oSession.WorkArea

Set oManStrings = New ManStrings
oManStrings.Add oSession.Databases.ItemByIndex(1).Name

Set oFolderSearchParams = oDMS.CreateFolderSearchParameters
oFolderSearchParams.Add imFolderCustom1, "235692"
oFolderSearchParams.Add imFolderCustom2, "03-555-4003"

Set oFolders = oWorkArea.SearchFolders(oManStrings, oFolderSearchParams)

If oFolders.Count = 0 Then Debug.Print "There are no folders for this matter!"

End Sub