$sDest = FileSelectFolder('Select Folder', '', 7)
For $i=1 To $CmdLine[0]
;If FileExists($sDest & $CmdLine[$i]) Then
;FileCopy($CmdLine[$i] + 'sss', $sDest)
;EndIf
;Next
;
;
;Local $title = "Удерживайте клавиши Ctrl или Shift, чтобы выбрать несколько файлов."
;Local $var = FileOpenDialog($title, @ScriptDir, "Все файлы (*)", 1 + 4)
;If @error Then
;MsgBox(4096, "", "Не выбрано ни одного файла")
;Else
;Local $sPath, $iC, $extn
;
;$var =
; Local $sDest = FileSelectFolder('Выбор папки назначения', @ScriptDir, 7)
;If @error Then Exit
$sDest = $sDest & '\'
$CmdLine = StringSplit($CmdLine, "|")
If UBound($CmdLine) = 2 Then
Local $gtn = StringRegExpReplace($CmdLine[1], '.*\\', '')
If FileExists($sDest & $gtn) Then
$extn = _div($gtn)
Do
$iC += 1
Until Not FileExists($sDest & $extn[0] & '-' & $iC & $extn[1])
FileCopy($CmdLine[1], $sDest & $extn[0] & '-' & $iC & $extn[1])
Else
FileCopy($CmdLine[1], $sDest & $gtn)
EndIf
Else
$sPath = $CmdLine[1] & '\'
For $i = 2 To $CmdLine[0]
If FileExists($sDest & $CmdLine[$i]) Then
$extn = _div($CmdLine[$i])
Do
$iC += 1
Until Not FileExists($sDest & $extn[0] & '-' & $iC & $extn[1])
FileCopy($sPath & $CmdLine[$i], $sDest & $extn[0] & '-' & $iC & $extn[1])
$iC = 0
Else
FileCopy($sPath & $CmdLine[$i], $sDest & $CmdLine[$i])
EndIf
Next
EndIf
Next
;EndIf
Func _div($sString)
Local $div[2]
Local $ip = StringInStr($sString, '.', 0, -1)
Local $name = StringLeft($sString, $ip - 1)
Local $ext = StringTrimLeft($sString, $ip - 1)
$div[0] = $name
$div[1] = $ext
Return $div
EndFunc