Открытие случайного файла из каталога со скриптом

[Snegovik]

Версия AutoIt: 3.3.14.0

Описание:
Добрый день.
Подскажите как должен выглядеть скрипт, который открывает любой случайный файл лежащий с ним в одном каталоге ?
Затем скрипт завершает свою работу.

Названия у файлов, лежащих в каталоге - самые разные.

Примечания:

 

[Tempo]

;~ AutoIt Version: 3.3.14.5
#include <File.au3>

Local $aFileList = _FileListToArrayRec(@ScriptDir, "*|" & @ScriptName, $FLTAR_FILES)
If Not @error Then ShellExecute($aFileList[Random(1, $aFileList[0], 1)])

 

[Snegovik]

Tempo
Спасибо.