This example displays a box that lists all files in the current directory. The file name "test.txt" is given as the suggested file name. Defaults are used the title bar and button text.

In this example, the file selected by the user is displayed in a message box.

Sub OpenFileDemo ()

 With Session

  Dim sesame As String

  sesame = .GetSaveAsFilename("test.txt", "All Files (*.*),*.*" )

  MsgBox sesame

 End With

End Sub