#include <Array.au3>
#include <File.au3>
Dim $a[1]
_ArrayAddFileListSubDir($a, 'c:\files')
_ArrayDisplay($a)
; построение файл-листа для папки - автор Amel27
Func _ArrayAddFileListSubDir(ByRef $aGDir, $sPath)
Local $i = UBound($aGDir), $aLDir = _FileListToArray($sPath, '*')
_ArrayAddFileList($aGDir, $sPath)
While $i < UBound($aGDir)
_ArrayAddFileList($aGDir, $aGDir[$i])
$i += 1
WEnd
EndFunc ;==>_ArrayAddFileListSubDir
Func _ArrayAddFileList(ByRef $aGDir, $sPath)
Local $i, $aLDir = _FileListToArray($sPath, '*')
If UBound($aGDir, 0) = 1 And UBound($aLDir, 0) = 1 Then
For $i = 1 To $aLDir[0]
_ArrayAdd($aGDir, $sPath & '\' & $aLDir[$i])
Next
EndIf
EndFunc ;==>_ArrayAddFileList