Verzeichnisgröße ermitteln

**CalganX**

Hi,
wie kann ich die Größe eines Verzeichnisses (inkl. Untervrezeichnisse) herausbekommen?

Chris

**Alexander**

Delphi-Quellcode:

			function GetDirSize(dir: string; subdir: Boolean): Longint; 

var 

  rec: TSearchRec; 

  found: Integer; 

begin 

  Result := 0; 

  if dir[Length(dir)] <> '\' then dir := dir + '\'; 

  found := FindFirst(dir + '*.*', faAnyFile, rec); 

  while found = 0 do 

  begin 

    Inc(Result, rec.Size); 

    if (rec.Attr and faDirectory > 0) and (rec.Name[1] <> '.') and (subdir = True) then 

      Inc(Result, GetDirSize(dir + rec.Name, True)); 

    found := FindNext(rec); 

  end; 

  FindClose(rec); 

end; 

procedure TForm1.Button1Click(Sender: TObject); 

begin 

  label1.Caption := FloatToStr(GetDirSize('e:\download', False) / Sqr(1024)) + ' MBytes'; 

  label2.Caption := FloatToStr(GetDirSize('e:\download', True) / Sqr(1024)) + ' MBytes'; 

end;

Hoffe es funzt, aus SwissdelphiCeter

**CalganX**

Stimmt und funzt...

Danke

Chris

**Christian Seehase**

Moin Zusammen,

und ich werd's einfach nicht müde darauf hinzuweisen

... (rec.Name[1] <> '.') ...

ist falsch.

Es muss

... (rec.Name <> '.') and (rec.Name <> '..') ...

lauten.

**ninja**

hallo.
ich habe diesen source-code mal ausprobiert, aber bei mir meldet er immer den fehler "Ungültiges Zeichen in Eingabedatei:' '($A0)" beim compilieren.
habe ich eine unit vergessen?? oder habe ich irgendwo vergessen mein verzeichniss anzugeben??
thx im voraus
ninja

**Sharky**

Hai ninja,

beim copy und paste sind da fehlerhafte Zeichen in deinen Editor gekommen.
Lösche mal die Leerzeichen am anfang jeder Zeile.

**ninja**

stimmt.
danke, werd ich mir gleich hinter die ohren schreiben, damit sowas nicht nochmal passiert.
greetz ninja

**ninja**

hallo.
ich habe da noch mal eine frage dazu, und zwar möchte ich gerne die ausgelesene verzeichnissgröße
weiterverwenden und weitergeben z.B. zum Umrechnen oder an eine Progressbar als Max-Wert.
ich habe es auch schon versucht, bin aber an der Variablendeklaration gescheitert.
Probleme habe ich z.B. mit der Umwandlung der Variablen.
Ich weis nicht genau wann ich z.B. StrToInt oder IntToStr einsetzen muß.
Oder was ich überhaupt nehmen muß um die Werte weiterzugeben.
Vieleicht kann mir ja jemand helfen.
Thx im vorraus
ninja

**himitsu**

1.

markieren

Delphi-Quellcode:

			Var G: LongInt;

G := GetDirSize('e:\download', True);

{G enthält die Größe des Verzeichnisses (inkl. Untervrezeichnisse) in Byte}

2.

markieren

Delphi-Quellcode:

			StrToInt:  String  => Integer

IntToStr:  Integer => String

aus der OH:

Zitat:

IntToStr konvertiert den mit Value angegebenen Integer-Wert in einen String mit der dezimalen Darstellung der Zahl.

Zitat:

StrToInt konvertiert den in S angegebenen String in einen Integer-Wert. S muss die Entsprechung eines ganzzahligen Wertes (dezimal oder hexadezimal) sein. Enhält er keinen gültigen Wert, wird eine EConvertError-Exception ausgelöst.

**ninja**

danke funktioniert.
hab da noch eine frage dazu , wie bekomme ich diesen jetzt noch durch eine beliebige zahl geteilt, z.B. 600 KB/s, ich möchte nämlich die zeit ausrechnen und diese dann in der Progressbar ablaufen lassen.
gruß ninja

Verzeichnisgröße ermitteln

Verzeichnisgröße ermitteln

Re: Verzeichnisgröße ermitteln

Re: Verzeichnisgröße ermitteln

Re: Verzeichnisgröße ermitteln

Re: Verzeichnisgröße ermitteln

Re: Verzeichnisgröße ermitteln

Re: Verzeichnisgröße ermitteln

Forumregeln

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#1 Verzeichnisgröße ermitteln 30. Dez 2002, 13:24 Hi, wie kann ich die Größe eines Verzeichnisses (inkl. Untervrezeichnisse) herausbekommen? Chris
	Zitat

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#3 30. Dez 2002, 14:16 Stimmt und funzt... Danke Chris
	Zitat

Christian Seehase (Co-Admin) Registriert seit: 29. Mai 2002 Ort: Hamburg 11.105 Beiträge Delphi 11 Alexandria	#4 30. Dez 2002, 15:37 Moin Zusammen, und ich werd's einfach nicht müde darauf hinzuweisen ... (rec.Name[1] <> '.') ... ist falsch. Es muss ... (rec.Name <> '.') and (rec.Name <> '..') ... lauten. Tschüss Chris Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel. Der Klügere gibt solange nach bis er der Dumme ist
	Zitat

ninja Registriert seit: 3. Mär 2003 90 Beiträge Delphi 6 Personal	#5 Re: Verzeichnisgröße ermitteln 7. Nov 2003, 10:28 hallo. ich habe diesen source-code mal ausprobiert, aber bei mir meldet er immer den fehler "Ungültiges Zeichen in Eingabedatei:' '($A0)" beim compilieren. habe ich eine unit vergessen?? oder habe ich irgendwo vergessen mein verzeichniss anzugeben?? thx im voraus ninja
	Zitat

Sharky Registriert seit: 29. Mai 2002 Ort: Frankfurt 8.251 Beiträge Delphi 2006 Professional	#6 Re: Verzeichnisgröße ermitteln 7. Nov 2003, 10:31 Hai ninja, beim copy und paste sind da fehlerhafte Zeichen in deinen Editor gekommen. Lösche mal die Leerzeichen am anfang jeder Zeile. Stephan B. "Lasst den Gänsen ihre Füßchen"
	Zitat

ninja Registriert seit: 3. Mär 2003 90 Beiträge Delphi 6 Personal	#7 Re: Verzeichnisgröße ermitteln 7. Nov 2003, 10:34 stimmt. danke, werd ich mir gleich hinter die ohren schreiben, damit sowas nicht nochmal passiert. greetz ninja
	Zitat

ninja Registriert seit: 3. Mär 2003 90 Beiträge Delphi 6 Personal	#10 Re: Verzeichnisgröße ermitteln 8. Nov 2003, 11:27 danke funktioniert. hab da noch eine frage dazu , wie bekomme ich diesen jetzt noch durch eine beliebige zahl geteilt, z.B. 600 KB/s, ich möchte nämlich die zeit ausrechnen und diese dann in der Progressbar ablaufen lassen. gruß ninja
	Zitat