Ordner aus Dateipfad extrahieren

[himitsu]

Ich sag's mal so: Selbst in Delphi 2010 müßtest du alle Dateien auflisten und deren Größen zusammenzählen, um die "Ordnergröße" zu bekommen.
Und sogar der Eigenschaften-Dialog vom Explorer macht es so.

[add]
falls du die Suche nicht selber implementieren willst:

Delphi-Quellcode:

uses
  FindFiles;

type
  TMyForm = class(TForm)
    ...
  private
    Größe: Int64;
    procedure OnFindFile(Sender: TFindFiles; Directory, FileName: string;
      Level: Integer; const Info: TWin32FindData; var Cancel: Boolean);
  end;

procedure TMyForm.OnFindFile(Sender: TFindFiles; Directory, FileName: string;
  Level: Integer; const Info: TWin32FindData; var Cancel: Boolean);
begin
  Größe := Größe + Int64(Info.nFileSizeHigh) shl 32 + Info.nFileSizeLow;
end;


Größe := 0;
FF := TFindFiles.Create;
try
  FF.Find('C:\irgendwo');
finally
  FF.Free;
end;
Label1.Caption := IntToStr(Größe);

//oder

Größe := 0;
TFindFiles.Create('C:\irgendwo', '*.*', True, OnFindFile);
Label1.Caption := IntToStr(Größe);

http://www.delphipraxis.net/internal...150098#1150098