Как найти размер папки!

[vitalik007]

Вот функция где здесь ошибка

function tform1.DirSize(Dir: string): int64;
var
  SearchRec: TSearchRec;
  Separator: string;
  DirBytes: integer;
begin
  Result:=-1;
  if Copy(Dir,Length(Dir),1)='\' then
    Separator := ''
  else
    Separator := '\';
  if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 then
  begin
    if FileExists(Dir+Separator+SearchRec.name) then
      DirBytes := DirBytes + SearchRec.Size
    else
    if DirectoryExists(Dir+Separator+SearchRec.name) then
    begin
      if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
        DirSize(Dir+Separator+SearchRec.name);
    end;
    while FindNext(SearchRec) = 0 do
    begin
      if FileExists(Dir+Separator+SearchRec.name) then
        DirBytes := DirBytes + SearchRec.Size
      else
      if DirectoryExists(Dir+Separator+SearchRec.name) then
      begin
        if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
          DirSize(Dir+Separator+SearchRec.name);
      end;
    end;
  end;
  FindClose(SearchRec);
  Result:=DirBytes;
end;

Потказывает что пустая папка весит 12323111байт

[mihali4]

Может я не заметил, но я не нашел, где вы присваиваете DirBytes начальное, то бишь нулевое значение...
Или вы считаете, что при создании переменная принимает нужное вам значение автоматом? Не-а, она этого не умеет... Там что угодно может быть...

[vitalik007]

Что не работает Можешь написать Функцию для нахождения размера папки??

[B_N]

А я вот, например, вообще не вижу места, где бы к DirBytes добавлялся размер вложенного каталога. И смысл использования integer в функции int64 от меня ускользает....

[vitalik007]

function tform1.GetDirSize(const aPath: string):int64;
var
  SR: TSearchRec;
  tPath: string;
begin
RESULT:=0;
  tPath := IncludeTrailingBackSlash(aPath);
  if FindFirst(tPath + '*.*', faAnyFile, SR) = 0 then
  begin
    try
      repeat
        if (SR.Name = '.') or (SR.Name = '..') then
          Continue;
        if (SR.Attr and faDirectory) <> 0 then
        begin
          GetDirSize(tPath + SR.Name);
          Continue;
        end;
        result := result +
          sr.Size;
      until FindNext(SR) <> 0;
    finally
      Sysutils.FindClose(SR);
    end;
  end;
end;

воттакая функция счиатет только файлы вложенный но не папки

[B_N]

Ёлки, ну вот тут:

        begin
          GetDirSize(tPath + SR.Name);
          Continue;
        end;

что должно происходить? К тому же, по exception что-то нужно делать с result'ом, а не возвращать неизвестно что.

[mihali4]

Вот подправленный вариант:

var
...
  DirBytes: integer; //объявляем ее как глобальную

implementation

{$R *.dfm}

function DirSize(Dir: string): integer;
var
  SearchRec: TSearchRec;
  Separator: string;
begin
  //Result:=-1;
  if Copy(Dir,Length(Dir),1)='\' then
    Separator := ''
  else
    Separator := '\';
  if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 then
  begin
    if FileExists(Dir+Separator+SearchRec.name) then
      DirBytes := DirBytes + SearchRec.Size
    else
    if DirectoryExists(Dir+Separator+SearchRec.name) then
    begin
      if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
        DirSize(Dir+Separator+SearchRec.name);
    end;
    while FindNext(SearchRec) = 0 do
    begin
      if FileExists(Dir+Separator+SearchRec.name) then
        DirBytes := DirBytes + SearchRec.Size
      else
      if DirectoryExists(Dir+Separator+SearchRec.name) then
      begin
        if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
          DirSize(Dir+Separator+SearchRec.name);
      end;
    end;
  end;
  FindClose(SearchRec);
  Result:=Result+DirBytes;
end;

//вызов
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
DirBytes:=0;
DirBytes := DirSize('c:\windows');
Label1.Caption := IntToStr(DirBytes);
end;