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.RemoveAllFromFolder( "Recipes\Spicy" )
End Sub

関連項目

RemoveAllFromFolder メソッド