Получить рандомное количество файлов в папке и записать их имена

[MORFEY1337]

Как получить рандомное количество имён файлов в папке и записать их в txt файл
К примеру в папке есть 50 файлов и мне нужно рандомно 6 их получить и записать их имена в txt

 

[InnI]

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

$a = _FileListToArray("c:\windows", "*", 1)
_ArrayDelete($a, 0)
_ArrayShuffle($a)
$a = _ArrayExtract($a, 0, 5)
_FileWriteFromArray("a.txt", $a)