Fórum Como obter uma lista de arquivos e pastas sem TFileListBox #284208

procedure ListarArquivos(const Path: string; const Lista: TStrings); 
var 
  Search: TSearchRec; 
  Done: Boolean; 
begin 
  Done := FindFirst(Path + ´\*.*´, faAnyFile, Search) <> 0; 
  while not Done do begin 
    if (Search.Attr and faDirectory) = faDirectory then begin 
      if (Search.Name <> ´.´) and (Search.Name <> ´..´) then begin 
        ListarArquivos(Path + ´\´ + Search.Name, Lista); 
      end; 
    end 
    else begin 
      Lista.Add(Path + ´\´ + Search.Name); 
    end; 
    Done := FindNext(Search) <> 0; 
  end; 
end;