VPF::КАК узнать обьем папки? - Форум программистов

vood

Дата 23.2.2006, 02:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 271
Регистрация: 23.2.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

КАК узнать обьем папки?

--------------------

Вы все еще курите ? Тогда мы идем к вам

remax

Дата 23.2.2006, 02:59 (ссылка)

(нет голосов)

Загрузка ...

Доцент

Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

Репутация: 1
Всего: 5

Если подразумевается суммарный объем файлов, то соответственно придется перебирать файлы, входящие в эту папку с учетом вложенных папок.

--------------------

Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку

<Spawn>

Дата 23.2.2006, 08:10 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Рекурсией. Темы обхода директорий не раз были на форуме. Поищите их и на этой основе легко будет посчитать общий размер.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Guedda

Дата 23.2.2006, 09:22 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Код


type
  TGetDirSizeCallback = procedure(Tag: Integer; CurrentSize: Int64);

procedure GetDirSize(Dir: string; IncludeSubDirs: Boolean; var Result: Int64;
  CallbackProc: TGetDirSizeCallback = nil; CallbackTag: Integer = 0); overload;
var
  SearchRec: TSearchRec;
  FindResult: Integer;
begin
  Dir := IncludeTrailingBackslash(Dir);
  FindResult := FindFirst(Dir + '*.*', faAnyFile, SearchRec);
  try
    while FindResult = 0 do
      with SearchRec do
      begin
        if (Attr and faDirectory) <> 0 then
        begin
          if IncludeSubDirs and (Name <> '.') and (Name <> '..') then
            GetDirSize(Dir + Name, IncludeSubDirs, Result, CallbackProc,
              CallbackTag);
        end
        else
        begin
          Result := Result + Cardinal(Size);
          if Assigned(CallbackProc) then
            CallbackProc(CallbackTag, Result);
        end;
        FindResult := FindNext(SearchRec);
      end;
  finally
    FindClose(SearchRec);
  end;
end;

function GetDirSize(Dir: string; IncludeSubDirs: Boolean = True): Int64;
  overload;
begin
  GetDirSize(Dir, IncludeSubDirs, Result, nil, 0);
end;

Пример использования:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  S: Int64;
begin
  S := 0;
  GetDirSize('с:\WINDOWS', True, S, @TForm1.GetDirCallback, Integer(Self));
  Label1.Caption := IntToStr(S);
end;

procedure TForm1.GetDirCallback(CurrentSize: Int64);
begin
  Label1.Caption := IntToStr(CurrentSize);
  Label1.Repaint;
end;

--------------------

Ll 2

vood

Дата 25.2.2006, 07:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 271
Регистрация: 23.2.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

Пасибо? Vinyl Man
Добавлено @ 07:27
Пасибо, Vinyl man

--------------------

Вы все еще курите ? Тогда мы идем к вам

MetalFan

Дата 20.7.2009, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Guedda, всем хорош код, но может криво считаться размер при использовании сокращенной GetDirSize.
а все потому, что Result не инициализирован нулем.
10 минут голову ломал, что за нафиг smile

)

Добавлено @ 12:14
+ еще не уверен, что корректно будет работать колбэк в примере...

Это сообщение отредактировал(а) Rrader - 20.7.2009, 15:00

--------------------

There are always someone smarter than you...

Yanis

Дата 20.7.2009, 13:55 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Размер папки можно узнать через Microsoft Windows Script (через объект FSO):

Код

var
  oFS: Variant;
  sz: Integer;
begin
  oFS := CreateOleObject('Scripting.FileSystemObject');
  ShowMessage(string(oFS.GetFolder('c:\windows\help').Size div 1024) + ' KB');
end;

Надеюсь пояснять не требуется. Экзампл всё сам за себя говорит.

Это сообщение отредактировал(а) Yanis - 20.7.2009, 13:56

--------------------

*щёлк*

MetalFan

Дата 20.7.2009, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Yanis, супер) а может такое быть, что Microsoft Windows Script не устанволен на клиентской машине?

--------------------

There are always someone smarter than you...

CodeMonkey

Дата 20.7.2009, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Интересно, как последний вариант решает эти вопросы.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Yanis

Дата 20.7.2009, 14:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(MetalFan @ 20.7.2009, 15:16

)

а может такое быть, что Microsoft Windows Script не устанволен на клиентской машине?

*Задумался* Знаешь, мне кажется нет ничего такого, что не могло бы случиться с пользовательской машиной. Наверняка найдутся такие индивиды, которые в ходе экспериментов с системой каким-то образом удалили какую-то часть WS. Реестр, знатно, можно по всякому изуродовать. Но, на девственной винде XP пример должен работать без докручивания.

Сам объект FSO хранится в так называемой Scripting Type Library (C:\WINDOWS\system32\scrrun.dll). Т.е. эта либа должна быть зарегена в системе, чтобы мы могли получить доступ к FSO.

Если сделать:

Код

regsvr32 /u scrrun.dll

то будет ошибка при попытке создать класс FSO:

Цитата

---------------------------
Project1
---------------------------
Недопустимая строка с указанием класса, ProgID: "Scripting.FileSystemObject"
---------------------------
ОК
---------------------------

Если есть опасения, что либа может не присутствовать, то можно тоскать с собой длл-у и делать ей «regsvr32 scrrun.dll».

Добавлено через 3 минуты и 34 секунды

Цитата(Yanis @ 20.7.2009, 15:58

)

Если есть опасения, что либа может не присутствовать, то можно тоскать с собой длл-у и делать ей «regsvr32 scrrun.dll».

Но это, конечно, изврат. Проще самому по папке пробежать и посчитать.

--------------------

*щёлк*

Yanis

Дата 20.7.2009, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(CodeMonkey @ 20.7.2009, 15:19)

Интересно, как последний вариант решает эти вопросы.

Полагаю, что узнать это можно только лишь экспериментальным путём.

Это сообщение отредактировал(а) Yanis - 20.7.2009, 15:38

--------------------

*щёлк*

MetalFan

Дата 20.7.2009, 17:41 (ссылка)

(голосов:1)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

CodeMonkey, ну вопросы я бы сказал там специФИЧЕские) в большинстве случаев можно о них не беспокоиться имхо.

--------------------

There are always someone smarter than you...

CodeMonkey

Дата 20.7.2009, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Почему-же? К примеру, наличие hard-link - не такая уж редкая ситуация. И чем дальше - тем чаще такое будет встречаться.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Riply

Дата 21.7.2009, 03:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: 3
Всего: 32

Цитата(CodeMonkey @ 20.7.2009, 19:35

)

Угу. Поставила тут Win 7 посмотреть с чем едят сие чудо.
Так там и плюнуть на системном диске некуда - обязательно на какой-нибудь редирект попадешь smile

Sorry за оффтоп.

Цитата(MetalFan @ 20.7.2009, 17:41

)

ну вопросы я бы сказал там специФИЧЕские) в большинстве случаев можно о них не беспокоиться имхо.

Ну почему же ?
Говорят, что KV плодит файловые потоки без всякого зазрения совести и в огромных количествах smile

Это сообщение отредактировал(а) Riply - 21.7.2009, 03:31

--------------------

Решение задач под заказ

MetalFan

Дата 21.7.2009, 13:06 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Riply, кто такой KV? )

--------------------

There are always someone smarter than you...

Riply

Дата 21.7.2009, 13:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: 3
Всего: 32

Цитата(MetalFan @ 21.7.2009, 13:06

)

Riply, кто такой KV? )

Sorry, если не так его обозвала.
Имелся ввиду антивирус Касперского или Кашперовского.
Черт ! Все время их путаю, уж очень похожи smile

--------------------

Решение задач под заказ

Yanis

Дата 21.7.2009, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Riply @ 21.7.2009, 14:12

)

Черт ! Все время их путаю, уж очень похожи

То есть, есть Антивирус Касперского и Кашперовского? smile

--------------------

*щёлк*

Riply

Дата 21.7.2009, 14:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: 3
Всего: 32

Yanis, неа. Антивирус, вроде один.
А вот кто его автор, все время путаю smile

P.S.
Ой, чуствую забанят меня за флуд злостный smile

--------------------

Решение задач под заказ

MetalFan

Дата 21.7.2009, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Riply, тебя забанят? не смеши)
да, антивирус касперского - жесть.
Но опять же повторюсь, для общего случая достаточно посчитать просто объем всех файлов рекурсивно

--------------------

There are always someone smarter than you...

Riply

Дата 21.7.2009, 16:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: 3
Всего: 32

Цитата(MetalFan @ 21.7.2009, 15:33

)

Но опять же повторюсь, для общего случая достаточно посчитать просто объем всех файлов рекурсивно

Ну для чего нам это может понадобиться ?
Самые жизненные варианты типа: выяснить хватит ли нам места для копирования на флешку или еще куда.
И, как раз здесь, мы и можем попасть в засаду из-за потоков или редиректов...
Разумеется, если мы только хотим вывести куда-то информацию, то пойдет... для красоты smile

,
ибо другой практической ценности у нее не будет, т.к. она может не соответствовать действительности.

--------------------

Решение задач под заказ

MetalFan

Дата 21.7.2009, 19:48 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Цитата(Riply @ 21.7.2009, 16:20

)

она может не соответствовать действительности.

ключевое слово тут - может, а может и соответствовать) а какая практическая ценность у размера с учетом потоков, кластеров и пр.? при копировании, например, какую пользу она может принести? разве скрытые потоки копируются(простите за неосведомленность)?

Это сообщение отредактировал(а) MetalFan - 21.7.2009, 19:48

--------------------

There are always someone smarter than you...

AntonN

Дата 21.7.2009, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 3
Всего: 18

Цитата

разве скрытые потоки копируются(простите за неосведомленность)?

при копировании, проверенного касперским, файла на флешку с fat32 система честно предупреждает, что будут утеряны некоторые в файловых потоках прикрепленные к этому файлу. Соответственно - копируются smile

--------------------

MetalFan

Дата 21.7.2009, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Цитата(AntonN @ 21.7.2009, 20:57

)

будут утеряны

Цитата(AntonN @ 21.7.2009, 20:57

)

Соответственно - копируются

хм, как-то нелогично выходит) если с нтфс на фат копировать, то выходит, что не копируются...

--------------------

There are always someone smarter than you...

AntonN

Дата 21.7.2009, 22:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 3
Всего: 18

с нтфс на фат - нет, а с нтфс на нтфс - да

--------------------

Riply

Дата 22.7.2009, 05:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: 3
Всего: 32

Цитата(MetalFan @ 21.7.2009, 19:48

)

а какая практическая ценность у размера с учетом потоков, кластеров и пр.? при копировании, например, какую пользу она может принести?

А я и не говорила что она есть smile

В этом вопросе, я полностью солидарна с CodeMonkey в плане того,
что в общем случае задача решения не имеет.

Топиковый вопрос приобретает смысл, только с детальными пояснениями для
чего вся эта каша нам понадобилась и что мы хотим получить в конце.
Под детальными пояснениями я понимаю ответы почти на все вопросы, перечисленные CodeMonkey.

Цитата(MetalFan @ 21.7.2009, 19:48

)

разве скрытые потоки копируются(простите за неосведомленность)?

Могут копироваться, а могут и нет.
Завсит от FS и от способа копирования.

Это сообщение отредактировал(а) Riply - 22.7.2009, 05:09

--------------------

Решение задач под заказ

MetalFan

Дата 22.7.2009, 18:41 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Усе понятно)
Но я то хотел обратить внимание копипастеров приведенного ранее куска кода для подсчета размера файлов в папках, что он содержит недочет... вот)

--------------------

There are always someone smarter than you...

Riply

Дата 22.7.2009, 21:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: 3
Всего: 32

Цитата(MetalFan @ 22.7.2009, 18:41

)

Но я то хотел обратить внимание копипастеров приведенного ранее куска кода для подсчета размера файлов в папках, что он содержит недочет... вот)

Святое дело (без смайлика)

smile

--------------------

Решение задач под заказ

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »