Object Reference

xf_InteractInteraction

Public Function OpenFileDialog (
DialogTitle As String,
FilterString As String,
Optional DefaultFilePath As String,
Optional MultiSelect As Boolean = False,
Optional FileMustExist As Boolean = True,
Optional HideReadOnly As Boolean = True
) As Variant

Display an 'open file' dialog. The file type filter must be manually constructed and passed in. If MultiSelect=True then returns a string array containing the selected file paths otherwise returns a string containing the selected file path or an empty string if 'Cancel' was pressed or nothing was selected.

DialogTitle as String

The caption to appear in the title bar at the top of the dialog window

FilterString as String

The file type filter for the file browsing window

Optional DefaultFilePath as String

The default path for the file browsing window

Optional MultiSelect as Boolean = False

Allow selection of multiple files in a folder

Optional FileMustExist as Boolean = True

Insist that the selected file must exist

Optional HideReadOnly as Boolean = True

Hide read-only files

Call Template:

Dim v As Variant

v = xf.Interact.OpenFileDialog(DialogTitle, FilterString)

v = xf.Interact.OpenFileDialog(DialogTitle, FilterString, DefaultFilePath, MultiSelect, FileMustExist, HideReadOnly)

Example 1:

Dim filter As String
Dim s As String

filter = XF_WINAPI_AddFilterItem(filter, "Doc (*.doc)", "*.doc")
filter = XF_WINAPI_AddFilterItem(filter, "Docx (*.docx)", "*.docx")
filter = XF_WINAPI_AddFilterItem(filter, "Rtf (*.rtf)", "*.rtf")

s = xf.Interact.OpenFileDialog_All("Select a document", filter)
If s <> "" Then txtDocPath = s