Open and Save File dialog boxes

Common Dialog 'Open File' and 'Save File' dialog boxes.
These are dependent on windows API calls from the 'xfExternal_32bit' and 'xfExternal_64bit' modules. They have been tested on 64 bit Access.

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.


Public Function OpenFileDialog_All(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 any kind of file. 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.


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.


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.


Public Function SaveFileDialog_All(DialogTitle As String, DefaultExtension As String, Optional InitialDir As String, Optional DefaultFilename As String, Optional FileMustExist As Boolean = True, Optional HideReadOnly As Boolean = True) As String

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


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.