LOTUSSCRIPT/COM/OLE CLASSES

Examples: OpenFileDialog method
This agent deletes files specified by the user through the Open dialog box.

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

See Also