Problem Refreshing Target Folder...

MadhuRS

Hi,

I'm customizing filesite client menu using icommand interface, for moving documents between workspace folders and libraries. When I excute the piece of code below I'm able to move the documents between folders, and also the view of source folder is automatically refreshed but I'm unable to see the moved document in target folder until I refresh the target folder view manually.I'm using worksite v8.2. Has anyone faced a similar problem...

Thanks,
Madhu.

Public Sub Execute() Implements ICommand.Execute

mOrigCmd.Execute()

Move()

Context.Add("IManExt.Refresh", True)

Context.Add("RefreshFolderContents", True)

Context.Add("RefreshSubFolders", True)

Context.Add("RefreshAllFolders", True)

End Sub

Private Sub Move()

Dim objDocuments As Array = Nothing

Dim objFolder As IManDocumentFolder = Nothing

Dim objTemp As Object = Nothing

Dim objDocument As IManDocument = Nothing

Dim objDocVersions As IManContents = Nothing

Dim intloop As Integer = 0

Dim intVersion As Integer = 1

Try

Try

objDocuments = Context.Item("IManExt.NewIManObjects")

objFolder = Context.Item("SelectedTargetIManFolderObject")

Catch ex As Exception

Exit Sub

End Try

For intloop = 0 To objDocuments.Length - 1

objTemp = objDocuments(intloop)

If objTemp.ObjectType.ObjectType = imObjectType.imTypeContentShortcut Then

objDocument = DirectCast(objTemp, IManContentShortcut).Resolve()

Else

objDocument = DirectCast(objTemp, IManDocument)

End If

If Not (objDocument.Database Is objFolder.Database) Then

If objDocument.IsOperationAllowed(imDocumentOperation.imCheckOutDocumentOp) Then

objDocVersions = objDocument.Versions

For intVersion = 1 To objDocVersions.Count

If intVersion = 1 Then

MoveReal(objDocVersions.ItemByIndex(intVersion), objFolder)

Else

MoveNew(objDocVersions.ItemByIndex(intVersion), objFolder)

End If

Next

DeleteDocument(objFolder, objTemp)

End If

End If

Next

Catch ex As Exception

'MsgBox(ex.Message)

End Try

End Sub

jny

If you could attach your actual code project along with the associated registry file, I'll take a look at it. Thanks.