поиск файлов и папок

[FAiver]

Мне необходимо из определённой директории вывести в мемо все файлы и папки. я делаю это так:

procedure ListFileDir(Path: string; FileList: TStrings);
 var
   SR: TSearchRec;
 begin
   if FindFirst(Path +'*.*', faAnyFile, SR) = 0 then
   begin
     repeat
      FileList.Add(SR.Name);
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
 end;

но почемуто выводятся не все папки! что я не так делаю?

а если вписать FindFirst(Path +'*.*', faDirectory , SR) то отображаются не все файлы

[merax]

Дак тыж пытаешься Директории(Папки) отразить, а не файлы !

Он захватывает все директории + добавляет еще некоторые файлы. Вопрос к Delphi гуру. Почему?

[GAGARIN-NEW]

Тоже интересует данный вопрос. Почему? получиш работающий код выложив этой теме плиз.

[vitalik007]

var
Cdir:string;     //имя папки,в которой надо искать

procedure find;
var search:Tsearchrec;
begin
getDir(0,Cdir);
if Cdir[length(Cdir)]<>'\' then Cdir:=Cdir+'\';
if findfirst(filename,faAnyFile,search)=0 then
repeat
if (search.Attr and faAnyFile)=search.Attr then  begin
form1.Memo1.Lines.Add(Cdir+search.Name);
inc(n);
end;
until findnext(search)<>0;
if findfirst('*',faAnyFile,search)=0 then
repeat
if (search.Attr and faDirectory)=faDirectory then
if search.Name[1]<>'.' then begin
chdir(search.Name);
find;
chdir('..');
end;
until findnext(search)<>0;
end;

[alexBlack]

Сообщение от FAiver

а если вписать FindFirst(Path +'*.*', faDirectory , SR) то отображаются не все файлы

Как много нам открытий чудных...

Вот уж никогда бы не подумал, что FindFirst принесет сюрпризы. Всегда вызывал одинаково - faAnyFile, потом в цикле проверка. Вот, примерно, как у vitalik007 и даже не задумывался. После вопроса полез в код VCL.

Оказывается, FindFirst вызывает FindFirstFile из WinAPI. А, поскольку, у той не предусмотрена фильтрация, файлы отсеиваются после вызова, но не прямым сравнением с указанными атрибутами, а, наоборот:

сначала готовятся исключаемые атрибуты:

faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;
F.ExcludeAttr := not Attr and faSpecial;

если атрибуты очередного файла попадают в ExcludeAttr, файл пропускается вызовом findNextFile.

Выводы.

Задавая маску атрибутов мы не экономим время, так как вызовы WinAPI делаются для каждого файла каталога всегда.

Использовав как маску один из атрибутов faHidden, faSysFile, faVolumeID, faDirectory мы не получим результата, который могли бы ожидать.
Так что лучшим вариантом остается вызов с faAnyFile и отбором файлов в цикле.

[mihali4]

Вывести содержимое каталога со всеми подкаталогами... Без рекурсии не обойтись...
Только что давал кому-то вывод в дерево. Вот вывод в ListBox (думаю, что переделать на МЕМО труда не составит):

procedure ScanDir(StartDir: string; Mask:string; List:TStrings);
var
SearchRec : TSearchRec;
begin
if Mask = '' then Mask := '*.*';
if StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\';
if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
begin
repeat
Application.ProcessMessages;
if (SearchRec.Attr and faDirectory) <> faDirectory then
List.Add(StartDir + SearchRec.Name)
else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
begin
List.Add(StartDir + SearchRec.Name + '\');
ScanDir(StartDir + SearchRec.Name + '\',Mask,List);
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
ScanDir('c:','',ListBox1.Items);
Label1.Caption := IntToStr(ListBox1.Items.Count);
end;

[vitalik007]

FAiver
Используй код как написал mihali4.Это стандартный поиск а Я решил что-нибудь оригинальное придумать

[Stilet]

Чет я не понял в чем сыр-бор. У меня код автора работает на ура.

[GAGARIN-NEW]

Код михалыча прекрасно работает . Только не пойму одного . если искать по масе "*.*" то ищет все файлы в директории и поддиректории ... а если искать по маске "*.jpg" то ищет только в текущей папке( без подкаталогов .. какю маску поставить чтобы искало к примеру жпеги в подкаталогах тоже?

[Serge_Bliznykov]

Сообщение от GAGARIN-NEW

а если искать по маске "*.jpg" то ищет только в текущей папке( без подкаталогов .. какю маску поставить чтобы искало к примеру жпеги в подкаталогах тоже?

так потому подкаталоги и не находятся - вот, если сделаете подкаталог с расширением .JPG (например, директорию (папку) с именем MYFOLDER.JPG - то в нём тоже будет искаться ;-)))

вам нужно искать по маске *.*
а у найденных файлов проверять
if UpperCase(ExtractFileExt(Name))='.J PG' then begin
<Обработка найденного JPG файла>
end;