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

Найти файлы указанного расширения в указанной директории

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

Выводит список найденных файлов в ListBox1. Так что необходимо выложить компонент TListBox на форму.

Procedure FindFileInFolder(path, ext: string);
Var SR : TSearchRec;
    Res : Integer;
begin
  Res := FindFirst(path+ext, faAnyFile, SR);
  while Res = 0 do
  begin
   Form1.ListBox1.Items.Add(path+Sr.Name);
   Res := FindNext(SR);
  end;
  FindClose(SR);
end;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  FindFileInFolder('D:\Music\', '*.mp3');
end;

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

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

0   Спам
(17.01.2010)
4. Сергей (Xaker)
а уже не надо разобрался...)

0   Спам
(17.01.2010)
3. Сергей (Xaker)
такой пример я видел много раз, но там опять же список выводится в TSTring или TStringGrid а мне надо в TListView....

0   Спам
(16.01.2010)
2. Сергей (Xaker)
а можно пример сразу...или статейку..?.я конечно гуглил но таких чтобы в ListvView добавлять файлы примеров нигде не было.
Ответ: может быть http://forum.sources.ru/index.php?showtopic=39461 это поможет?

0   Спам
(16.01.2010)
1. Сергей (Xaker)
А как можно усовершенствовать данную функцию чтобы она ещё и по подпапкам искала...?
Ответ: Можно. Это будет рекурсивный поиск, например.


Имя *:
Email:


Код *:

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

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

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

Хостинг от uCoz

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

e-mail: save-x@yandex.ru

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