Рекурсивный поиск

Func _FileSearchAll(ByRef $sFileList, $sPath, $iDepth) ; Вызов функции, где первый параметр возвращается как указатель на данные
    Local $sFile, $s = FileFindFirstFile($sPath & '*') ; Объявляение локальных переменных с вызовом поиска
    If $s = -1 Then Return ; Если вызов поиска возвращает -1, то выпрыгиваем из функции
    While 1 ; начало бесконечного цикла
        $sFile = FileFindNextFile($s) ; поиск следующего файла
        If @error Then ExitLoop ; если ошибка предыдущей функции то выпрыгиваем из цикла
        If @extended Then ; Если найденный элемент является папкой, тогда
            _FileSearchAll($sFileList, $sPath & $sFile & '\', $iDepth) ; делаем рекурсивыный вызав самой себя
        Else ; иначе
            $sFileList &= $sPath & $sFile & @CRLF ; присоединяем путь к списку с переносом строки
        EndIf
    WEnd ; конец цикла
    FileClose($s) ; закрываем дескриптор поиска
EndFunc