lotus-notes - 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 方法。