Example

This example creates a dialog box that prompts the user for a settings file. The user can also use the List Files of type box in the dialog box to display bitmap files or text files.

Sub OpenSesame ()

 Dim sesame As String

 sesame = Session.GetOpenFilename("Settings Files (*.R1W)," & _

  "*.R1W,Bitmaps (*.bmp),*.bmp,Text Files (*.txt),*.txt", 1)

 MsgBox sesame

End Sub