LOTUSSCRIPT /COM/OLE のクラス

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

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

関連項目