Создать список файлов - PureBasic

Procedure Direct(Directory.s, List Files.s()) 
  If Right(Directory.s,1)<>"\":Directory.s + "\":EndIf ; Если в конце пути (в конце строки) нет символа '\', то добавлям его.
  z=ExamineDirectory(#PB_Any, Directory.s, "*.*")  ; Начало сканирования папки, путь к которой указан в строковой переменной Directory.
  If z                                             ; Идентификатор (число) сканируемой папки. Он нужен для других функций, например NextDirectoryEntry().
    While NextDirectoryEntry(z)                    ; Переходим к следующему объекту (файлу или папке). Если больше объектов нет - цикл прервется.
      EntryName.s=DirectoryEntryName(z)            ; Имя файла или папки.
      ;------------------------------------------ 
      If EntryName = "." Or EntryName = ".."       ; Если это текущая (".") или родительская ("..") папка,
        Continue                                   ; то досрочно переходим в начало цикла While-Wend.
     EndIf 
     ;------------------------------------------ 
      Type=DirectoryEntryType(z)                   ; Узнаем тип объекта (файл или папка).
      If Type = #PB_DirectoryEntry_Directory   ; Если это папка,
        Direct(Directory.s+EntryName, Files())   ; то процедура вызывает саму себя (рекурсия) для сканирования этой папки.
      ElseIf Type = #PB_DirectoryEntry_File        ; Если это файл,
        ;-------------------------------------------      
        FileName.s = Directory.s+EntryName ; то получаем полный путь к файлу.
        If AddElement(Files())
          Files()=FileName
        EndIf
      EndIf 
    Wend     
    FinishDirectory(z)                             ; Освобождение ресурсов, используемых при сканировании папки. 
  EndIf 
EndProcedure

ProcedureDLL Search(PathF.s, *Size.Long)
  Static Dim Result.s(0)
  Protected NewList Files.s()
  
  Direct(PathF, Files())
  *Size\l=ListSize(Files())
  ReDim Result(*Size\l)
  
  i=0
  ForEach Files()
    Result(i)=Files()
    i+1
  Next
  
  ProcedureReturn @Result()
EndProcedure

ProcedureDLL.s Search(PathF.s)
 Protected NewList Files.s() 
  Direct(PathF, Files())
  ForEach Files()
    String$=String$ + Files() + "|"
  Next
  ProcedureReturn String$
EndProcedure

ProcedureDLL.s Search(*proc, PathF.s)
  Protected NewList Files.s() 
  If *proc
    Direct(PathF, Files())
    ForEach Files()
      Define path.s = Files()
      CallFunctionFast(*proc, @path)
    Next
    ProcedureReturn 1
  EndIf
  ProcedureReturn 0
EndProcedure