Scan folders and subfolders and list files only

#include
#Include

Local $aRetArray
Local $path = "D:\tmp"
Local $sFindFile = "*"
Local $sRet

;$aRetArray = _FindPathName($path, $sFindFile)
;_ArrayDisplay($aRetArray)

$sRet = ""
$aRetArray = _FindPathName($path, $sFindFile)
_ArrayDisplay($aRetArray)


; Funktion
Func _FindPathName($sPath, $sFindFile)
Local $sSubFolderPath, $iIndex, $aFolders, $search,$aFoldersSubs
$search = FileFindFirstFile($sPath & "\" & $sFindFile)
$aFolders = _FileListToArray($sPath, "*", 2)

While 1
$file = FileFindNextFile($search)
If @error Then
ExitLoop
Else
$sRet &= $sPath & "\" & $file & "|"
EndIf
WEnd

FileClose($search)

For $iIndex = 1 To $aFolders[0]
$sSubFolderPath = $sPath & "\" & $aFolders[$iIndex]
$aFoldersSubs = _FileListToArray($sSubFolderPath, "*", 2)
If IsArray($aFoldersSubs) Then _FindPathName($sSubFolderPath, $sFindFile)
Next

Return StringSplit(StringTrimRight($sRet,1), "|")
EndFunc