FileOpenDialog multi-files: extra backslash at root directory

[GPinzone]

I'm following this example:

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>

; Browse for files
Local $sFileOpenDialog = FileOpenDialog($sMessage, @DesktopDir, "All Files (*.*)", BitOr($FD_FILEMUSTEXIST, $FD_MULTISELECT))
; Check what type of return we get from the function
If @error Then ; Complete fail
    MsgBox($MB_SYSTEMMODAL, "Error", "Selection failed")
Else ; Check for multiple return which will have delimiters
    If StringInStr($sFileOpenDialog, "|") Then
        ; Multiple files selected, so need to create an array
        $aFileSplit = StringSplit($sFileOpenDialog, "|")
        ; And then loop through the array
        For $i = 2 To $aFileSplit[0] ; Note starting at [2], because [0] is the count and [1] is the path
            ; You need to recreate the full path on each pass
            FileCopy($aFileSplit[1] & "\" & $aFileSplit[$i], $DIR_DEST)
        Next
    Else
        ; Only a single file selected, so copy immediately
        FileCopy($sFileOpenDialog, $DIR_DEST)
    EndIf
EndIf

The output for multiple files works fine except when selecting files at the root of a drive. The format will be "U:\\filename.ext" instead of"U:\filename.ext" I'm surmising this is because FileOpenDialog returns a path with a trailing "\" when at the root directory, but not in sub-directories.

I know I could strip off the trailing "\" on $aFileSplit[1], but perhaps there's something better to do?

Edited October 10, 2017 by GPinzone

[Melba23]

GPinzone,

Why not use StringRight to check if $aFileSplit[1] ends in a "\" and then not add the additional "\" if it does? Something like this should work (untested):

; You need to recreate the full path on each pass
FileCopy( $aFileSplit[1] & ( ( If StringRight($aFileSplit[1], 1) = "\") ? ("") : ("\") ) & $aFileSplit[$i], $DIR_DEST)
;                          Ternary operator to add either nothing or a "\" as required

M23

[GPinzone]

Yes, I'm sure that would work. However, doesn't this seem like a (minor) bug of the FileOpenDialog function?

EDIT: Another idea for a workaround...

; Multiple files selected, so need to create an array
$aFileSplit = StringSplit($sFileOpenDialog, "|")
If StringRight($aFileSplit[1], 1) <> '\' Then
  $aFileSplit[1] &= "\"
EndIf

Then remove the "\" from the later concatenation.

Edited October 10, 2017 by GPinzone

[Melba23]

GPinzone,

I do not see it as a bug. The various @*Dir macros within AutoIt also only have a trailing "\" when dealing with a root folder. In  fact I seem to remember that it is a Windows standard and not an AutoIt one - although I am quite ready to be proved wrong.

And your suggestion is equally valid as a solution- there are several ways to skin this particular cat.

M23