This function opens the dialog window and returns True if the user pressed Ok button.
object.Execute()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISOpenDialog interface |
bool
Show the dialog and display the selected file name.
Dim aDialogue
Dim aResult
Set aDialogue = Profile.CreateOpenDialog
aDialogue.Title = "Open Recent Notes"
aDialogue.Filter = "*.txt||*.rtf||*.doc||*.*||"
aDialogue.FileName = "MyNotes.txt"
aResult = aDialogue.Execute
if aResult then
Profile.MsgBox("The selected file name is """ & aDialogue.FileName & """")
else
Profile.MsgBox("The file name was not selected")
end if
string to
bool
in v8.5.0