Здравствуйте, Гость
Суббота, 19.05.2012
Найти файлы указанного расширения в указанной директории
Автор: Борисов Сергей 
Выводит список найденных файлов в 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;
Просмотров: 5436
|
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)
А как можно усовершенствовать данную функцию чтобы она ещё и по подпапкам искала...?
Ответ: Можно. Это будет рекурсивный поиск, например.
|
On-line статистика:
Онлайн всего: 5
Гостей: 5
Пользователей: 0
Статистика:
Copyright © 2008-2012 Программирование на Delphi для начинающих и не только
Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации
Хостинг от uCoz