Приветствую Вас, Гость! Регистрация RSS
Вторник, 19.03.2024
Главная » Файлы » Delphi » Файлы

Поиск файлов
[ Скачать с сервера (3.7 Kb) ] 23.09.2014, 16:15

procedure FindFileList(Path: string; var AList: TStringList);
var
  SR: TSearchRec;
  Dir: string;
begin
  Dir := ExtractFilePath(Path);
  if FindFirst(Path, faAnyFile, SR) = 0 then
    repeat
      if SR.Name[1] <> '.' then AList.Add(Dir + SR.Name);
    until FindNext(SR) <> 0;
  if FindFirst(Dir + '*.*', faDirectory, SR) = 0 then
    repeat
      if ((SR.Attr and faDirectory) = faDirectory) and (SR.Name[1] <> '.') then
        FindFileList(Dir + SR.Name + '\' + ExtractFileName(Path), AList);
    until FindNext(SR) <> 0;
  FindClose(SR);
end;

Категория: Файлы | Добавил: Alex | Теги: шаблоны поиска, поиск файлов, поиск, список файлов
Просмотров: 401 | Загрузок: 21 | Комментарии: 1 | Рейтинг: 0.0/0
Всего комментариев: 1
avatar
0
1 Alex • 16:22, 23.09.2014
Судя по коду, параметр Path надо писать с подстановочными знаками. Например, C:\Windows\*.* или C:\*
Если писать просто имя папки, процедура не будет формировать список файлов внутри неё.
avatar