🚀 go-pugleaf

Andreas Brett meinte am 5 Sep 1998 17:24:39 GMT in
"<6srs4n$d5c$1@news00.btx.dtag.de>":

>Wie schon im Betreff erw�hnt suche ich einen DirSize Routine mit der ich
>ALLE Subdirs eines Verzeichnisses durchsuchen und die Gr�sse addieren
>kann !

Versuchs mal so �hnlich:

program DirSize;

 procedure Pfad(Verzeichnis:String);
 var SRec:SearchRec;
     VerzTemp:String;	
 begin
  FindFirst(Verzeichnis,AnyFile,SRec);
  While DOSError=0 do begin
   if (SRec.Attr and Directory)>0 then begin
    VerzTemp:=Verzeichnis;
    if VerzTemp[Length(VerzTemp)]<>'\' then VerzTemp:=VerzTemp+'\';
    if Srec.Name[1]<>'.' then Pfad(VerzTemp+Srec.Name)
   end else [Dateigr��e in Srec.Size addieren];
   FindNext(SRec)
  end
 end;

begin
 [...]
 Pfad('X:\Anfangsverzeichnis');
 [...]
end.

>Antworten bitte per eMail schicken an : Andreas.Brett@t-online.de

ausnahmsweise posted&mailed

mfg
  Holger