Скачать: CL | DM;

Поиск файлов   Найти похожие ветки 

← →
eLVik ©   (2003-06-23 11:50) [0]

Здравствуйте! Вот пишу свою первую компоненту для поиска файлов (надо же с чего-то начинать...). И вот вопрос - как искать файлы без атрибутов (не скрытые, не архивные...). По идее надо как-то так:


...
var
MyAttr, f: Integer;
SR: TSearchRec;
begin
MyAttr:=faAnyFile-faDirectory-faVolumeID-faSysFile-faHidden-faArchive-faReadOnly;
f:=FindFirst("*.*", MyAttr, SR);
...


Так здесь MyAttr равен нулю и прога вообще ничего не ищет :(
Похоже перебором действовать придётся.

PS: Не предлагайте готовые компоненты :)

---

← →
Palladin ©   (2003-06-23 11:54) [1]

:))) ну а чему еще она должна быть равна если
faAnyFile=faDirectory+faVolumeID+faSysFile+faHidden+faArchiv+faReadOnly

потешил :)
загляни в справку про FindFirst

---

← →
eLVik ©   (2003-06-23 12:05) [2]

Дык я уже понял, что MyAttr = 0 (догадался ;) ). А с поиском, то что делать?

---

← →
Anatoly Podgoretsky ©   (2003-06-23 12:07) [3]

Ищет и еще как, но только один файл, если такой будет, для остальных надо еще использовать и FindNext.
И потом говоришь не ищет, а возвращенное значение f стесняешься привести.

Я так понимаю, что местный чаво тебе не помог, перечитать еще раз в совокупности с описание функций FindFirst/FindNext

---

← →
eLVik ©   (2003-06-23 12:22) [4]

Я знаю как работают эти функции (FindFirst и пр). Однако я создал файл и убрал у него все аттрибуты и запустил программу - результат нулевой.

Но я попробую ещё раз. Спасибо. Тема закрыта...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c