Object Reference

xf_InteractInteraction

Public Function OpenFileDialog_mdb (
DialogTitle 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 with the filter set for '.mdb' files.
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

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_mdb(DialogTitle)

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

Example 1:

Dim s As String
s = xf.Interact.OpenFileDialog_mdb("Select Database File")
If s <> "" Then txtDbPath = s