Object Reference

xf_InteractInteraction

Public Function SaveFileDialog_mdb (
DialogTitle As String,
Optional InitalDir As String,
Optional DefaultFilename As String,
Optional MultiSelect As Boolean = False,
Optional FileMustExist As Boolean = True,
Optional HideReadOnly As Boolean = True
) As String

Display a 'save file' dialog with the filter set for '.mdb' files.
Returns a string containing the selected file path or an empty string if 'Cancel' was pressed or nothing was selected.

DefaultFilePath

The default path for the file browsing window

DialogTitle as String

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

Optional InitalDir as String

(no description)

Optional DefaultFilename as String

(no description)

Optional MultiSelect as Boolean = False

(no description)

Optional FileMustExist as Boolean = True

Insist that the selected file must exist

Optional HideReadOnly as Boolean = True

Hide read-only files

Call Template:

Dim s As String

s = xf.Interact.SaveFileDialog_mdb(DefaultFilePath, DialogTitle)

s = xf.Interact.SaveFileDialog_mdb(DefaultFilePath, DialogTitle, InitalDir, DefaultFilename, MultiSelect, FileMustExist, HideReadOnly)

Example 1:

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

Object Reference

Public Function SaveFileDialog_mdb (DialogTitle As String, Optional InitalDir As String, Optional DefaultFilename As String, Optional MultiSelect As Boolean = False, Optional FileMustExist As Boolean = True, Optional HideReadOnly As Boolean = True) As String

DefaultFilePath

DialogTitle as String

Optional InitalDir as String

Optional DefaultFilename as String

Optional MultiSelect as Boolean = False

Optional FileMustExist as Boolean = True

Optional HideReadOnly as Boolean = True

Call Template:

See Also:

Example 1:

Public Function SaveFileDialog_mdb (
DialogTitle As String,
Optional InitalDir As String,
Optional DefaultFilename As String,
Optional MultiSelect As Boolean = False,
Optional FileMustExist As Boolean = True,
Optional HideReadOnly As Boolean = True
) As String