例: PutAllInFolder method

次の例は、NotesDatabase の FTSearch メソッドで検索されたすべての文書を、「Recipes」フォルダの中にある「Spicy」サブフォルダに入れます。

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Set db = session.CurrentDatabase
  Set collection = db.FTSearch( "cayenne", 20 )
  Call collection.PutAllInFolder( "Recipes¥Spicy" )
End Sub