Object Reference

xf_InteractInteraction

Public Function SaveFileDialog (
DialogTitle As String,
FilterString As String,
DefaultExtension As String,
Optional InitalDir As String,
Optional DefaultFilename As String,
Optional FileMustExist As Boolean = False,
Optional HideReadOnly As Boolean = True
) As String

Display a 'save file' dialog. The file type filter must be manually constructed and passed in. 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

FilterString as String

The file type filter for the file browsing window

DefaultExtension as String

The default extension if none is specified for the file

Optional InitalDir as String

(no description)

Optional DefaultFilename as String

(no description)

Optional FileMustExist as Boolean = False

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(DefaultFilePath, DialogTitle, FilterString, DefaultExtension)

s = xf.Interact.SaveFileDialog(DefaultFilePath, DialogTitle, FilterString, DefaultExtension, InitalDir, DefaultFilename, 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.SaveFileDialog("Save a document", filter)
If s <> "" Then txtNewDocPath = s