#Include <Array.au3>
Global $sClip = StringSplit(ClipGet(), @LF) ;~ Вытаскиваем данные из буфера
Dim $sCopy[$sClip[0] + 1] ;~ Создаём массив для хранения директорий
$sCopy[0] = $sClip[0]
For $i = 1 To $sClip[0]
$sFile = StringRegExp($sClip[$i], '(^.*)\\(.*)\.(.*)$', 3) ;~ Отделяем название файла от его расширения
If Not @error Then
$sPath = ($sFile[1] & '_AutoIt_ID_' & Round(Random(1000, 9999)) & '.' & $sFile[2]) ;~ Задаём новое имя для копируемого файла
$sCopy[$i] = $sPath ;~ Записываем в массив директорию и название файла
FileCopy($sClip[$i], $sPath) ;~ Копируем файлы в новую директорию
EndIf
Next
_ArrayDisplay($sCopy) ;~ Отображаем массив с данными