udfAskFilename
str udfAskFilename (str, str, str, str, int)
;----------------------------------------------------------------------------------------------------------------------
#DefineFunction udfAskFileName (strTitle, strFolder, strFilter, strFilename, intFlags)
objDialog = ObjectCreate ("MSComDlg.CommonDialog.1")
objDialog.DialogTitle = strTitle
objDialog.InitDir = strFolder
objDialog.Filter = strFilter
objDialog.FilterIndex = 1
objDialog.FileName = strFilename
objDialog.Flags = intFlags
objDialog.MaxFileSize = 32767
objDialog.CancelError = @TRUE
intLastErrorMode = ErrorMode (@OFF)
LastError ()
objDialog.ShowOpen
ErrorMode (intLastErrorMode)
If LastError () > 0 Then Return ""
strSep = @TAB
objRegEx = ObjectCreate ("VBScript.RegExp")
objRegEx.Global = @TRUE
objRegEx.Pattern = "\0"
strFileNames = objRegEx.Replace(objDialog.FileName, strSep)
Drop (objRegEx, objDialog)
intItems = ItemCount (strFileNames, strSep)
If intItems == 1 Then Return strFileNames
strFolder = FilePath (ItemExtract (1, strFileNames, strSep) : "\")
strOut = ""
For intItem = 2 To intItems
   strOut = ItemInsert (strFolder : ItemExtract (intItem, strFileNames, strSep), -1, strOut, strSep)
Next
Return strOut
;..........................................................................................................................................
; This udf is a replacement for the standard WinBatch AskFileName dialog function
; to enable selection of long filenames up to maximal buffer size of 32767 byte.
;
; 20100130.Added backslash to let Filepath work correctly: "strFolder = FilePath (ItemExtract (1, strFileNames, strSep) : "\")"
; 20081027.Detlev Dalitz with crucial support from tonyd.
;..........................................................................................................................................
; Flags Property (Open, Save As Dialogs)
;
; cdlOFNAllowMultiselect      = 512      ; &H200     ; Specifies that the File Name list box allows multiple selections. The user can select more than one file at run time by pressing the SHIFT key and using the UP ARROW and DOWN ARROW keys to select the desired files. When this is done, the FileName property returns a string containing the names of all selected files. The names in the string are delimited by spaces.
; cdlOFNCreatePrompt          = 8192     ; &H2000    ; Specifies that the dialog box prompts the user to create a file that doesn't currently exist. This flag automatically sets the cdlOFNPathMustExist and cdlOFNFileMustExist flags.
; cdlOFNExplorer              = 524288   ; &H80000   ; Use the Explorer-like Open A File dialog box template. Works with Windows 95, Windows NT 4.0, or later versions.CdlOFNNoDereferenceLinks  &H100000  Do not dereference shell links (also known as shortcuts). By default, choosing a shell link causes it to be dereferenced by the shell.
; CdlOFNExtensionDifferent    = 1024     ; &H400     ; Indicates that the extension of the returned filename is different from the extension specified by the DefaultExt property. This flag isn't set if the DefaultExt property is Null, if the extensions match, or if the file has no extension. This flag value can be checked upon closing the dialog box.
; cdlOFNFileMustExist         = 4096     ; &H1000    ; Specifies that the user can enter only names of existing files in the File Name text box. If this flag is set and the user enters an invalid filename, a warning is displayed. This flag automatically sets the cdlOFNPathMustExist flag.
; cdlOFNHelpButton            = 16       ; &H10      ; Causes the dialog box to display the Help button.
; cdlOFNHideReadOnly          = 4        ; &H4       ; Hides the Read Only check box.
; cdlOFNLongNames             = 2097152  ; &H200000  ; Use long filenames.
; cdlOFNNoChangeDir           = 8        ; &H8       ; Forces the dialog box to set the current directory to what it was when the dialog box was opened.
; cdlOFNNoLongNames           = 262144   ; &H40000   ; No long file names.
; CdlOFNNoReadOnlyReturn      = 32768    ; &H8000    ; Specifies that the returned file won't have the Read Only attribute set and won't be in a write-protected directory.
; cdlOFNNoValidate            = 256      ; &H100     ; Specifies that the common dialog box allows invalid characters in the returned filename.
; cdlOFNOverwritePrompt       = 2        ; &H2       ; Causes the Save As dialog box to generate a message box if the selected file already exists. The user must confirm whether to overwrite the file.
; cdlOFNPathMustExist         = 2048     ; &H800     ; Specifies that the user can enter only valid paths. If this flag is set and the user enters an invalid path, a warning message is displayed.
; cdlOFNReadOnly              = 1        ; &H1       ; Causes the Read Only check box to be initially checked when the dialog box is created. This flag also indicates the state of the Read Only check box when the dialog box is closed.
; cdlOFNShareAware            = 16384    ; &H4000    ; Specifies that sharing violation errors will be ignored.
;    OFN_ENABLEHOOK           = 32       ; &H20      ;
;    OFN_ENABLETEMPLATE       = 64       ; &H40      ;
;    OFN_ENABLETEMPLATEHANDLE = 128      ; &H80      ;
;    OFN_NODEREFERENCELINKS   = 1048576  ; &H100000  ;
;    OFN_NONETWORKBUTTON      = 131072   ; &H20000   ;
;    OFN_NOTESTFILECREATE     = 65536    ; &H10000   ;
;..........................................................................................................................................
#EndFunction
;----------------------------------------------------------------------------------------------------------------------