; Melba23
; http://www.autoitscript.com/forum/topic/126198-recfilelisttoarray-new-version-18-oct-11/
#include <Array.au3>
#include <RecFileListToArray.au3>

$timer = TimerInit()
;  только файлы
$aArray = _RecFileListToArray(@WindowsDir, "*.i??", 1, 1, 0, 2)
$timer = Round(TimerDiff($timer) / 1000, 2) & ' сек'
_ArrayDisplay($aArray, $timer)

$timer = TimerInit()
; только файлы в корне системного диска
$aArray = _RecFileListToArray(@HomeDrive, "*", 1, 0, 0, 2)
$timer = Round(TimerDiff($timer) / 1000, 2) & ' сек'
_ArrayDisplay($aArray, $timer)

$timer = TimerInit()
; только папки
$aArray = _RecFileListToArray(@SystemDir, "*", 2, 1, 0, 2)
$timer = Round(TimerDiff($timer) / 1000, 2) & ' сек'
_ArrayDisplay($aArray, $timer)