例: PutInFolder method

次のスクリプトは、フォルダ [Jambalaya] に文書を配置します。

Dim doc As NotesDocument
'...set value of doc...
Call doc.PutInFolder( "Jambalaya" )

次のスクリプトは、フォルダ [Spicy] に文書を配置します。フォルダ [Spicy] はフォルダ [Recipes] の中にあります。
```
Dim doc As NotesDocument
'...set value of doc...
Call doc.PutInFolder( "Recipes¥Spicy" )
```
次のスクリプトは、個人フォルダ [Greens] に文書を配置します。
```
Dim doc As NotesDocument
'...set value of doc...
Call doc.PutInFolder( "Greens" )
```

次のスクリプトは現在のデータベースで全文検索を実行して、一致する文書の上位 20 個をフォルダ [Spicy] に配置します。フォルダがない場合は作成されます。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set dc = db.FTSearch("cayenne",20)
Set doc = dc.GetFirstDocument
While Not(doc Is Nothing)
  Call doc.PutInFolder("Spicy",True)
  Set doc = dc.GetNextDocument(doc)
Wend

次のスクリプトは、文書コレクション内の文書で [Conflict] フィールドを含む全文書を選択し、フォルダに移動します。

Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set dc = db.AllDocuments
Set doc = dc.GetFirstDocument
While Not(doc Is Nothing)
     If doc.IsResponse Then
        If doc.HasItem("$Conflict") Then
           Call doc.PutInFolder("Conflicts")
        End If
     End If
     Set doc = dc.GetNextDocument(doc)
Wend