Как поменять названия файлов случайным образом

[mv6677]

Версия AutoIt: 3.3.1.,0

Описание:
Доброго времени суток.

Вопрос:
В папке C:\1\ - есть txt файлы, с названиями 1.txt, 2.txt, 3.txt и т.д.
Как нажатием на кнопку макроса - поменять названия файлов случайным образом - используя те же самые числовые данные?

В итоге - получится что файлы вроде бы те же самые... но их названия ПЕРЕТАСОВАНЫ. Например файл который при запуске макроса - назывался 2.txt - после срабатывания - будет называться 5.txt или 11.txt (в названии файлов - всегда только числа).

Названия файлов - могут быть только те, что существуют в папке на момент запуска скрипта. То есть - если в папке с книгой всего 11 текстовых файлов, то при переименовании - не может быть файла с названием 14 или 15. Названия также - не могут повторяться.
Примечания:

 

[joiner]

мой вариант-пример.

Спойлер

#include <File.au3>
#include <Array.au3>
Local $Dir = @ScriptDir & '\Тест'
For $i = 1 To 15
	Local $rnm = Random(1, 15, 1)
	If FileExists($Dir & '\' & $rnm & '.txt') Then ContinueLoop
	Local $fo = FileOpen($Dir & '\' & $rnm & '.txt', 1)
	FileWrite($fo, $rnm)
	FileClose($fo)
Next

Local $aFile = _FileListToArray($Dir, '*.txt', 1, True)
_ArrayDelete($aFile, 0)
While 1
	If UBound($aFile) <= 1 Then ExitLoop
	FileMove($aFile[0], $aFile[UBound($aFile) - 1] & '.tmp')
	FileMove($aFile[UBound($aFile) - 1], $aFile[0] & '.tmp')
	_ArrayDelete($aFile, 0)
	_ArrayDelete($aFile, UBound($aFile) - 1)
WEnd

$aFile = _FileListToArray($Dir, '*.tmp', 1, True)
For $i = 0 To $aFile[0]
	FileMove($aFile[$i], StringTrimRight($aFile[$i], 4))
	FileDelete($aFile[$i])
Next

 

[Tempo]

#include <Array.au3>
#include <File.au3>

Local $sPath = "C:\1"

Local $aFileList = _FileListToArray($sPath, "*.txt", $FLTA_FILES), $aOutList = $aFileList
If @error Then Exit MsgBox(0, "Ошибка", "Файлы не найдены")

_ArrayShuffle($aOutList, 1)
For $i = 1 To $aFileList[0]
	FileMove($sPath & "\" & $aFileList[$i], $sPath & "\" & $aOutList[$i] & ".tmp")
Next
For $i = 1 To $aFileList[0]
	FileMove($sPath & "\" & $aOutList[$i] & ".tmp", $sPath & "\" & $aOutList[$i])
Next

 

[mv6677]

Спасибо