Obsah priecinka – Delphi – Fórum – Programujte.com

Prosim vas, aka funkcia mi vrati obsah nejakej zlozky na disku, potreboval by som zistit presne nazvy priecinkov a suborov v zlozke a este nejako ich rozlisit - ci je to subor alebo priecinok. Diky

priecinok je po nasem myslim adresar, takze:

var

 wfd:_win32_find_data;

 h:hwnd;

begin

  h:=findfirstfile('*.*',wfd);  // zacina v aktualnim adresari

  repeat

   if wfd.dwFileAttributes=file_attribute_directory then

    ;

    writeln(wfd.cfilename);

  until not findnextfile(h,wfd);

no a keby chcem hladat v nejakom danom adresari? nie v aktualnom...

MArie panno, a co rozsirit '*.*' na 'C:\tady\*.*'
nebo dej SetCurrentDirectory...