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