Поиск файлов

← →
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 и пр). Однако я создал файл и убрал у него все аттрибуты и запустил программу - результат нулевой.

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

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