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方法.