LOTUSSCRIPT/COM/OLE CLASSES
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