DeleteCmd - status 1

Rooose

Hi,

I'm calling the following function, however the DeleteCmd has a status of 1 after the update. All the objects + window handle are valid.

Sorry if the answer is obvious:}

Thankyou


Public Function deleteDocument(ByVal pHWND As Long, _
ByVal pFolderMoniker As String, _
ByVal pDocMoniker As String) As Boolean

Dim lDeleteCmd As IMANEXTLib.DeleteCmd
Dim lContextItems As IMANEXTLib.ContextItems
Dim lDocument(0) As IManage.NRTDocument
Dim lFolder(0) As IManage.NRTFolder

Set lDocument(0) = vWorksite.GetObjectBySID(pDocMoniker)
Set lFolder(0) = vWorksite.GetObjectBySID(pFolderMoniker)

Set lContextItems = New IMANEXTLib.ContextItems
lContextItems.Add "ParentWindow", pHWND
lContextItems.Add "SelectedNRTDocuments", lDocument
lContextItems.Add "SelectedNRTFolder", lFolder


Set lDeleteCmd = New IMANEXTLib.DeleteCmd
lDeleteCmd.Initialize lContextItems
lDeleteCmd.Update

If lDeleteCmd.Status = 0 Then
lDeleteCmd.Execute

deleteDocument = lContextItems.Item("IManExt.Refresh")
lContextItems.Remove "IManExt.Refresh"
End If

Set lContextItems = Nothing
Set lDeleteCmd = Nothing
Set lDocument(0) = Nothing

End Function