DirSize Routine f�r Turbo Pascal

Thread View: maus.lang.tpascal

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Andreas Brett Sat, 05 Sep 1998 00:00

Author: Andreas Brett
Date: Sat, 05 Sep 1998 00:00

13 lines
1117 bytes

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

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

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

Re: DirSize Routine f�r Turbo Pascal

Author: Holger Straube
Date: Mon, 07 Sep 1998 00:00

38 lines
1648 bytes

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

Re: DirSize Routine f�r Turbo Pascal

Author: Ing. Franz Glaser
Date: Sat, 12 Sep 1998 00:00

10 lines
1272 bytes

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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads