Wrapper WorkspaceSearchExCmd Error

pennyg

Hi
I have a wrapper for IManExt2lib.WorkspaceSearchExCmd. When used the screen displays and all buttons work except the Search button. After clicking search the error is:

iManExt2: This operation could not be completed successfully...
iManage.NRTDMS.2
[Workarea][SearchProfiledFolders]An unrecognised exception has occurred.

The code is vb6. Client is 8.2 SP1

I presume this is a context issue.


Private WithEvents mOrigCmd As IManExt2lib.WorkspaceSearchExCmd
Private WithEvents mOrigDlg As IManExt2lib.WorkspaceSearchExCmd

Private Sub ICommand_Execute()
Dim myCmd As IManExt2lib.WorkspaceSearchExCmd
Set myCmd = New IManExt2lib.WorkspaceSearchExCmd
Dim Context As contextItems
Set Context = mContext
myCmd.Initialize Context
myCmd.Update
If myCmd.Status = (myCmd.Status And nrActiveCommand) Then
myCmd.Execute
mContext.Add "IManExt.Refresh", True
mContext.Add "RefreshAllFolders", True
End If
endICommand:
End Sub

The purpose behind the wrapper is to add shortcut keys to the drop down menu. If there is a simplier way would be happy to hear.

thanks
P.