Procedure Direct(Directory.s, SearchFileName.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, SearchFileName)  ; то процедура вызывает саму себя (рекурсия) для сканирования этой папки.
      ElseIf Type = #PB_DirectoryEntry_File        ; Если это файл,
        ;-------------------------------------------      
        FileName.s= Directory.s+EntryName          ; то получаем полный путь к файлу.
        If LCase(EntryName) = SearchFileName       ; Сравниваем имена файлов.
          ;AddGadgetItem(#ListIcon_Files, -1, FileName)
          Debug FileName
        EndIf
        ;SetGadgetText(#Text_Files, FileName)
      EndIf 
    Wend                                           ; Конец цкла While-Wend.
    FinishDirectory(z)                             ; Освобождение ресурсов, используемых при сканировании папки.
  EndIf 
EndProcedure

Direct("C:\", "boot.ini")

Structure MemString
  *String
  Pos.i
  Len.i
EndStructure

Procedure Add_MemString(*Str.MemString, String.s)
  If *Str
    
    Len = StringByteLength(String)
    If Len>0
      
      If *Str\Len-*Str\Pos < Len
        *Str\Len+Len+1000
        *Str\String = ReAllocateMemory(*Str\String, *Str\Len)
      EndIf
      
      *Str\Pos+PokeS(*Str\String+*Str\Pos, String, Len, #PB_String_NoZero)
      
    EndIf
    
  EndIf
EndProcedure

Procedure Free_MemString(*Str.MemString)
  If *Str
    If *Str\String
      FreeMemory(*Str\String)
      *Str\String=0
    EndIf
    *Str\Pos=0
    *Str\Len=0
  EndIf
EndProcedure

Procedure Direct(Directory.s, List Files.s()) 
  If Right(Directory.s,1)<>"\":Directory.s + "\":EndIf 
  z=ExamineDirectory(#PB_Any, Directory.s, "*.*") 
  If z                                            
    While NextDirectoryEntry(z)                   
      EntryName.s=DirectoryEntryName(z)            
      If EntryName = "." Or EntryName = ".."  
        Continue                           
     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.i Search(PathF.s)
  Protected NewList Files.s() 
  Static String.MemString
  
  Free_MemString(@String)
  
  Direct(PathF, Files())
  ForEach Files()
    Add_MemString(@String, Files() + "|")
  Next
  
  ProcedureReturn String\String
EndProcedure

ProcedureReturn String\String

$hDLL = DllOpen("test.dll")
$Struct = DllStructCreate("UINT_PTR")
$Result = DllCall($hDLL, "UINT_PTR", "Search", "STR", "C:\",'UINT_PTR',DllStructGetPtr($Struct))
$resstruct = DllStructCreate('char[' & DllStructGetData($Struct, 1) & ']',$Result[0])
$stringdelr = StringTrimRight(DllStructGetData($resstruct,1),1)
DllClose($hDLL)
$res = StringSplit($stringdelr,'|',1) ;получил список путей