Скан папки/диска

[Rifler]

Добрый день.
Проблема такая - я указываю директорию и мне нужен список всех avi файлов в этой директории и ее поддиректориях.

Есть ли какие-то стандартные дельфийские решения? Если нет, то подтолкните в правильном направлении

[RAZOR3]

procedure DirSearch(Dir: String; SL: TstringList);
Var
SearchRec:TSearchRec;
begin
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
ScanDirNew(Dir+SearchRec.name, sl)
else
if Copy(Dir+SearchRec.Name,pos('.avi',Dir+SearchRec.Name),4)='.avi' then begin
Sl.Add(Dir+SearchRec.Name);
Delete(SearchRec.Name,Length(searchRec.Name)-3,4);
end;
until
FindNext(SearchRec)<>0;
FindClose(SearchRec);
end;

использование - DirSearch('имя папки или диска', TStringList)

[Serge_Bliznykov]

RAZOR3
1) ну Вы же не новичок на форуме, используйте тег [СODE] для оформления кода!!
2) в коде ошибка - вместо ScanDirNew надо использовать DirSearch
3) ещё скрытая неточность, некоторые файлы не будут найдены - т.к. расширение у файла может иметь различный регистр...
4) для чего выполняется удаление расширения из имени? Это имя дальше никуда не идёт! остатки вашего старого кода?...

вот, например, нормальное решение задачи:
http://www.programmersforum.ru/showp...54&postcount=3

или можно вот так:

procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var
  SearchRec: TSearchRec;
begin
  Dir := IncludeTrailingBackslash(Dir);

  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      Application.ProcessMessages;

      if (SearchRec.Attr and faDirectory) <> 0 then begin
        if (SearchRec.name <> '.') and (SearchRec.name <> '..') then
                DirSearch(Dir + SearchRec.name, Mask, sl)
      end
      else
        if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then
          Sl.Add(Dir + SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

...
// вызов, например, так:
  DirSearch('C:\TEMP', '*.AVI', Memo1.Lines);

p.s. чтобы работал if MatchesMask(... нужно в uses дописать Masks

p.p.s. вместо использования if MatchesMask(
можно так сравнивать совпадение имени шаблону:

if AnsiUpperCase(ExtractFileExt(SearchRec.Name))='.AVI' then ....