Scan Sub Folders

; Coded by Juno_okyo
#NoTrayIcon
#include <Array.au3>
#include <File.au3>

Global $aResult = []

; Start from current dir
scan(@ScriptDir)
_ArrayDisplay($aResult)

Func scan($dir)
    Local $aList = _FileListToArray($dir, '*', 2)
    If Not @error Then
        _ArrayDelete($aList, 0)
        _ArrayConcatenate($aResult, $aList, 0)
        For $dir In $aList
            scan($dir)
        Next
    EndIf
EndFunc