Текущий архив: 2005.03.06;
Скачать: CL | DM;

Вниз

Как узнать размер каталога?   Найти похожие ветки 

← →
Генри ©   (2005-02-22 14:34) [0]

ЗДравствуйте. Как узнать сколько MB занимает каталог?
заране благодарен!

---

← →
Топпер   (2005-02-22 14:38) [1]

рекурсивно пройти по всем файлам и подкаталогам и просуммировать размеры файлов

вот пример для рекурсивного удаления всех файлов и подкаталогов, переделай под себя:


 procedure EmptyDir(path: string);
 var
   sr: TSearchRec;
 begin
   if FindFirst(path + "\*.*", faAnyFile, sr) = 0 then begin
     repeat
       if sr.Attr and faDirectory = 0 then begin
         // not catalog
         DeleteFile(path + "\" + sr.name);
       end else begin
         // catalog
         if pos(".", sr.name) <= 0 then EmptyDir(path + "\" + sr.name);
       end;
     until FindNext(sr) <> 0;
   end;
   FindClose(sr);
 end;


---

← →
TUser ©   (2005-02-22 14:38) [2]

Рекурсивно обойти его, и для каждого файла спросить GetFileSize

---

← →
Virgo_Style ©   (2005-02-22 14:52) [3]

> для каждого файла спросить GetFileSize

type
  TSearchRec = record
   Time: Integer;
   Size: Integer;    
   Attr: Integer;
   Name: TFileName;
   ExcludeAttr: Integer;
   FindHandle: THandle;
   FindData: TWin32FindData;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2005.03.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.048 c