Подписаться на RSS рассылку
Главная » Статьи по Delphi » Файлы » Сколько файлов есть в определенной папке

Сколько файлов есть в определенной папке

Автор: Vit

Взято с http://delphiworld.narod.ru/

function GetFileCount(Dir: string): integer;
var
  fs: TSearchRec;
begin
  Result := 0;
  if FindFirst(Dir + '\*.htm', faAnyFile-faDirectory-faVolumeID, fs)=0
  then
    repeat
      inc(Result);
    until
      FindNext(fs) <> 0;
  FindClose(fs);
end;

Просмотров: 4734

Обсудить на форуме


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта