例: OpenFileDialog method

次のエージェントは、ユーザーが [開く] ダイアログボックスで指定したファイルを削除します。

Sub Initialize
  Dim ws As New NotesUIWorkspace
  REM Get filename from user
  filenames = ws.OpenFileDialog( _
  True, "Select files to be deleted",, "c:¥work")
  If Not(Isempty(filenames)) Then
    Forall filename In filenames
      Kill filename
    End Forall
  End If
End Sub