title image


Smiley dringend: allle ordner eines ordners ermitteln
halo!



hab gerade den tipp auf http://www.delphi-treff.de/content/edhonline/index.php4?id=68 gefunden:



procedure DeleteAll(Dir, Files : string);

var

SearchRec : TSearchRec;

begin

if FindFirst(Dir+Files, faAnyFile, SearchRec) = 0 then

begin

DeleteFile(SearchRec.Name);

while FindNext(SearchRec) = 0 do

DeleteFile(Dir + SearchRec.Name);

end;

FindClose(SearchRec);

end;



allerdings benötige ich jetzt noch eine schleife zum ermitteln aller ordner, sodass wirklich ALLES gelöscht wird.





thx

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: