foldery

czesc to znowu ja
prosze o pomoc:) (sorka ale sam nic naprawde nie potrafie wykombinowac)

jak wyswietlic w listboxie wszystkie foldery w danym folderze, w ktorych jest plik description.txt?

z gory dzieki!

Ech....

var
  R: TSearchRec;
  res: Word;
begin
  res:=FindFirst('.\*', faDirectory, R);
  while res = 0 begin
    if (R.name <> '.') and (R.name <> '..') then
      if FileExists('.' + R.name + '\desc.txt') then listbox.items.add(R.name);
    res:=FindNext(R);
  end;
  FindClose(R);
end;

mniej więcej

BTW: katalogi, nie foldery.
/* Najlepiej "dosierujo". Nie będzie sprzeczek ;) */

zapomnaiales

do

przed drugim begin

. ale dzieki!!