Не сработало FindNext

← →
snake-as © (2008-12-05 15:48) [0]

Здравствуйте, мастера. У меня такой вопрос. Сделал поиск файлов на Делфи. Он искал по папкам и выдавал полный список. Но вот что получилось: у меня была папка Oper в папке, в которой он искал. Я нажал поиск, он в этой подпапке ничего не нашел. Начал отлаживать, у нее, оказывается атрибут 48(не знаю, что это), а не faDirectory. Хотя раньше точно работало. Потом создал заново папку вместо этой, вложил туда эти же файлы и он их нашел. В чем может быть проблема? Атрибуты я у этой папке не менял, скрытой не делал и т.д.
На всякий случай, вот кусоке кода:
if (Sr.Attr = faDirectory) and ((Sr.Name=".") or (Sr.Name = "..")) then//÷òîáû íå áûëî ôàéëîâ . è..
begin
Res := FindNext(Sr);
Continue;//ïðîäîëæàåì öèêë
end;

if (Sr.Attr=faDirectory) then//åñëè íàøëè äèðåêòîðèþ, òî èùåì ôàéëû â íåé
begin
Add := Sr.Name + "\";
Result := FindTheFile(DirName + Sr.Name+"\", Add, FileName);//ðåêóðñèâíî âûçûâàåì íàøó ïðîöåäóðó

//Ïðîâåðÿåì, íàøåë ëè îí ôàéë
if CopyEnd(Result, GetNumberOfSymbolFromTheEnd(Result, "\")) = FileName then
Exit;
Res := FindNext(Sr);//èùåì ñëåä. ôàéë
Continue;//ïðîäîëæàåì öèêë
end;

← →
sniknik © (2008-12-05 15:58) [1]

> у нее, оказывается атрибут 48(не знаю, что это)
faDirectory 16 + faArchive 32 = ?

нельзя делать прямое сравнение, файлы могуи иметь набор атрибутов, а не один.

← →
Anatoly Podgoretsky © (2008-12-05 16:17) [2]

> snake-as (05.12.2008 15:48:00) [0]

http://www.podgoretsky.com/Redir.aspx?id=137&DownloadFile=~/ddp/bits.aspx

← →
Slym © (2008-12-05 17:10) [3]

Anatoly Podgoretsky © (05.12.08 16:17) [2]
faDirectory
А я говорил, он и в эти грабли наступил :)
http://delphimaster.net/view/2-1227969919/

Не сработало FindNext Найти похожие ветки