Refresh on FileSaveCmd

pennyg

Hi

the following piece of code nicely saves a document into the folder chosen by the user however my refresh commands are not working. Can anyone shed light on the correct format for the refresh command for the folder the document is going into?

With oFileSaveCmd
' Pass populated ContextItems to the command
.Initialize oContext
' Update command
.Update
' Check status before execution
If .Status = (.Status And nrActiveCommand) Then
.Execute

If False = blCancelled Then
On Error Resume Next
blRefresh = oContext("IManExt.Refresh")
If True = blRefresh Then
' End-user has selected Save from the dialog
Set oImportedDoc = oContext("ImportedDocument")
' Check to verify imported doc is checked out
If True = oImportedDoc.CheckedOut Then
' Upload the associated physical file to the DMS
Set oCheckinResult = oImportedDoc.CheckInWithResults(filePath, imCheckinReplaceOriginal, imDontKeepCheckedOut)
If True = oCheckinResult.Succeeded Then
importFile = True
refreshScreens oContext
End If
End If
End If
Else
importEmail = False
End If
End If
End With


Private Sub refreshScreens(pContextItems As IMANEXTLib.ContextItems)
With pContextItems ' refresh the screen so the document appears
.Add "IManExt.Refresh", True
.Add "RefreshFolderContents", True
.Add "RefreshSubFolders", True
.Add "RefreshAllFolders", True
.Add "RefreshWorkList", True
End With

End Sub