Grösse von Verzeichnissen bestimmen

[Ajin]

Guten Morgen!

Ich versuche immernoch Verzeichnisse mit einer Progressbar zu kopieren. In diesem Sinne möchte ich die Grösse der zu kopierenden Verzeichnisse (inkl. unterordner) bestimmen. Delphi bringt für Dateioperationen iniges mit, aber bei Verzeihnissen siehts da meines wissens mau aus.

Laut Suchfunktion gabs nur einen Beitrag mit einer selbst gestrickten GetVerzeihnisGr Funktion welche aber nicht richtig funktioniert.

Man könnte ja alle Dateien zählen die sich in sämtlichen unterordnern befinden und die Summe aufaddieren. Gibts da nix eleganteres?

Wie bestimmt ihr die Grösse eine Verzeichnisses?

[Luckie]

Da hatten wir doch erst. Entweder nimmst du die API-Funktion SHFileoperation oder du suchst dir mit FindFirst / FindNext alle Dateien und summierst die Dateigrößen.

Oder, so habe ich es mal gemacht, du zählst nur die Ordner (der ersten Ebene): http://www.michael-puff.de/dirindex....phi/Sonstiges/ -> MpuDriveTools.pas

[Steve]

Zitat von Ajin:

...In diesem Sinne möchte ich die Grösse der zu kopierenden Verzeichnisse (inkl. unterordner) bestimmen. ...

Hi,

eine (weitere) Möglichkeit wäre:

Delphi-Quellcode:

uses
  ComObj;

Function FolderSize(FolderName: STRING) : DWORD;
var
  fldr, fso : OleVariant;
begin
  fso    := CreateOleObject('Scripting.FileSystemObject');
  fldr   := fso.GetFolder(FolderName);
  result := fldr.size; // In Bytes
end;

Gruß
Stephan

[Luckie]

Die Idee ist gut. Allerdings sollte man das in einem Thread auslagern, da es bei größeren Verzeichnissen etwas dauern kann. Desweiteren sollte der Rückgabewert Int64 sein, sonst bekommst du Probleme mit Ordern über 2GB.