#Include <File.au3>
#Include <Array.au3>

Global $aFileList[1]
Global $fpath = 'D:\AutoIt\'
SplashTextOn('Recursive FileList', $fpath, 800, 50, -1, -1, 52)
$fFileList = _FileListToArray($fpath, '*.*', 1)
If IsArray($fFileList) Then 
	$prev = UBound($aFileList)-1
	ReDim $aFileList[$prev+1+$fFileList[0]]
	For $j = 1 To $fFileList[0]
		$aFileList[$prev+$j] = $fpath & $fFileList[$j]
	Next
EndIf
_ReFileListToArray($fpath)
SplashOff()
_ArrayDisplay($aFileList,'$FileList')



Func _ReFileListToArray($path)
	ControlSetText('Recursive FileList', '', 'Static1', '   ' & UBound($aFileList)-1 & '   ' & $path)
	Local $dFileList = _FileListToArray($path, '*', 2)
	If IsArray($dFileList) Then
		For $i = 1 To $dFileList[0]
			$fFileList = _FileListToArray($path & $dFileList[$i] & '\', '*.*', 1)
			If IsArray($fFileList) Then
				$prev = UBound($aFileList)-1
				ReDim $aFileList[$prev+1+$fFileList[0]]
				For $j = 1 To $fFileList[0]
					$aFileList[$prev+$j] = $path & $dFileList[$i] & '\' & $fFileList[$j]
				Next
			EndIf
			_ReFileListToArray($path & $dFileList[$i] & '\')
		Next
	EndIf
EndFunc