DirSize Routine für Turbo Pascal

[Andreas Brett]

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 !

Antworten bitte per eMail schicken an : Andrea...@t-online.de

--
MfG
Andreas Brett
eMail : Andrea...@t-online.de
WWW : http://home.pages.de/~MultiMediaWorld/

PGP FINGERPRINT : C1FE 80AE D016 09E7 A7EC 579A D271 B817 248D 9DEC

[Holger Straube]

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 : Andrea...@t-online.de

ausnahmsweise posted&mailed

mfg
Holger

[Ing. Franz Glaser]

Andreas Brett wrote:
>
> 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 !

http://www.geocities.com/SiliconValley/2926/tp.html
Kapitel FAQ, Artikel "Recursion example, program SUCHE".

MfG Franz Glaser