例: OverwriteFile property

次のスクリプトはログの保存先の LOG.TXT ファイルを開きます。ファイルの既存の内容が削除されてから、アクションとエラーが記録されます。
```
Dim currentLog As New NotesLog( "Bump on a Log" )
currentLog.OverwriteFile = True
Call currentLog.OpenFileLog( "c:¥log.txt" )
'...log some actions and errors...
Call currentLog.Close
```

エージェントが最後に実行されてから 1 週間を超えているとき、次のエージェントスクリプトは OverwriteFile プロパティを True に設定します。エージェントが最後に実行されてから 1 週間以内のとき、スクリプトは OverwriteFile プロパティを False に設定します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim agent As NotesAgent
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim currentLog As NotesLog
  Set db = session.CurrentDatabase
  Set agent = session.CurrentAgent
  Set collection = db.UnprocessedDocuments
  Set currentLog = New NotesLog( "Log for " & agent.Name )
  If ( ( Today - agent.LastRun ) > 7 ) Then
    currentLog.OverwriteFile = True
  Else
    currentLog.OverwriteFile = False
  End If
  Call currentLog.OpenFileLog( "c:¥log.txt" )
  Call currentLog.LogAction _
  ( collection.Count & " docs being processed." )
  '....code to process each document...
  Call currentLog.Close
End Sub