This thread is for discussions of Display the Open & Save Dialog.

Thanks for the code. Helpful.

Although some of the optional parameters default values in the function SelectFile where incorrectly specified.

Optional ByVal Filter = "All Files (*.*)|*.*" As String instead of Optional ByVal Filter As String = "All Files (*.*)|*.*" among others.

Also I think the line

If FileMode = cdfmSaveFileNoPrompt Then .Flags = .Flags Or OFN_OVERWRITEPROMPT

should have been.

If FileMode = cdfmSaveFile Then .Flags = .Flags Or OFN_OVERWRITEPROMPT

because getting the prompt to confirm a potential overwriting of the a selected file when passing cdfmSaveFileNoPrompt and not getting it when passing cdfmSaveFile is surely a mistake?

I realise this code is dated 1999 and its now 2005, but I'm using it now, so maybe somewhere else out there is too and these notes may help them.

Good work, however

the SelectFile function declaration should be:

Public Function SelectFile(ByVal hWndOwner As Long, Optional ByVal Filter As String = "All Files (*.*)|*.*", Optional ByVal DefaultExtension As String = "", Optional ByVal FileMode As CDFileModes = cdfmOpenFile, Optional ByVal DialogCaption As String = "", Optional ByVal DefaultFilename As String = "", Optional ByVal DefaultPath As String = "", Optional FilterIDX As Long = 0, Optional MoreFlags As CDFileFlags) As String
Dim R As Long, SP As Long, ShortSize As Long, Z As Long

ie. the default values for the passed strings were in the wrong place,

Optional ByVal Filter = "All Files (*.*)|*.*" As String,     ...is wrong, should be:

Optional ByVal Filter As String = "All Files (*.*)|*.*", ...

Alright, I was able to guess that i needed to but this code in a module.. Now, how do i USE it?