title image


Smiley Re: dringend: allle ordner eines ordners ermitteln
Irgendwie immer die selben Fragen hier...



TSearchRec bewirkt Wunder:





procedure GetDirs(RootDir: string; dirlist: TStrings);

var

search: TSearchRec;

ts: TStringList;

begin

ts := TStringList.Create;

try

if FindFirst(RootDir + '*.*', faDirectory, search) = 0 then

begin

repeat

if ((search.Attr and faDirectory) = faDirectory) and

(search.Name '.') and (search.Name '..') then

ts.Add(search.Name);

until FindNext(search) 0;

FindClose(search);

end;

ts.sort;

dirlist.Text := ts.Text;

finally

ts.Free;

end;

end;





[SwissDelphiCenter.ch]
Ciao,

Andy Ströbel
---------------------------------------------------------------------

BackUp Maker, Synchredible, Secure Eraser

http://www.ascomp.de


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: