LotusScript：在文件夹中移动多个文档

Question

我有一个“移动文档”按钮，据说它应该将所选文档移动到另一个文件夹。我使用PutAllInFolder但它只将文档复制到“移动文档”文件夹。是否有另一种方法可以完全将它们移动到另一个文件夹或视图？

这是我的代码：

  Sub Click(Source As Button)
   Dim session As New notessession
   Dim dbCur As notesdatabase
   Set dbCur = session.currentdatabase

   Dim collSelected As notesdocumentcollection
   Set collSelected = dbCur.UnprocessedDocuments

   Call collSelected.PutAllInFolder("Move Document")
   Dim uiw As New notesuiworkspace
   Call uiw.viewrefresh
  End Sub

Answer 1

对集合使用RemoveAllFromFolder方法。