VPF::Количество файлов в папке! - Форум программистов

Silmarion

Дата 15.12.2005, 15:10 (ссылка)

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

Загрузка ...

Шустрый

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

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

Всем привет!
Подскажите есть ли процедура кторая показывает количество файлов в папке, путь к папке я указываю вручную...
Если есть то подскажите е сли нету, то если кто писал выложите плз!

Snowy

Дата 15.12.2005, 15:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Нужно ручками считать - через FindFirst, FindNext.

z-END

Дата 15.12.2005, 15:20 (ссылка)

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

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

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

наверно ченить типа того...

Код

Function FilesCount (Dir: string):Integer;
var SearchRec:TSearchRec;
begin
 Result:=0;
 if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
 if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
 repeat
 if (SearchRec.name='.') or (SearchRec.name='..') then continue;
 if (SearchRec.Attr and faDirectory)<>0 
 then 
 else Result := Result+1;
 until FindNext(SearchRec)<>0;
 FindClose(SearchRec);
end;

Добавлено @ 15:20
и причем здесь winAPI ?!

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

Каждый чилавек пасвоему праф...а памоему НЕТ!

Silmarion

Дата 15.12.2005, 15:21 (ссылка)

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

Загрузка ...

Шустрый

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

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

Сорри что не туда написал... я думал есть процедура на системном уровне

Это сообщение отредактировал(а) Silmarion - 15.12.2005, 15:22

Romikgy

Дата 15.12.2005, 15:56 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

Код


ListBox1.Clear;
  SetCurrentDir(Edit1.Text);

  SendMessage(Form1.ListBox1.Handle,LB_DIR,DDL_READWRITE,Integer(Pchar('*.*')));
  Form1.Caption:=IntToStr(ListBox1.Count);

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

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