Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.20;
Скачать: CL | DM;

Вниз

Как пропустить поиск в определенных каталогах ?   Найти похожие ветки 

 
tmpGuest   (2005-03-02 10:43) [0]

Уважаемые мастера! В программе есть функция поиска файлов на диске во
всех его каталогах. Допустим, мне нужно, чтобы в каталоге c:\MyDir и
во всех его подкаталогах поиск не производился. Для этого я использую
такой вот метод:

var
SearchRec: TSearchRec;

begin
...

if Pos("c:\mydir",AnsiLowerCase(SearchRec.Name)) = 0 then

...
end;

Есть ли более красивое решение ?
Заранее благодарен!


 
Reindeer Moss Eater ©   (2005-03-02 10:46) [1]

В SR.Name вряд ли вообще окажется строка "C:\mydir"


 
ЮЮ ©   (2005-03-02 10:58) [2]

Если поиск ведется рекурсивно, то не входить в паку с именем MyDir


 
tmpGuest   (2005-03-02 11:11) [3]

ЮЮ ©   (02.03.05 10:58) [2]

Ступил я чего-то. Спасибо! :)


 
Reindeer Moss Eater ©   (2005-03-02 11:13) [4]

Остается реализовать это самое "не входить"
Код приведенный выше "не войдет" не только в папку c:\mydir, но и во все остальные. Либо войдет во все. В зависимости от того, что там между бегином и ендом.


 
Anatoly Podgoretsky ©   (2005-03-02 15:03) [5]

Заменим "не входить" на выходить.



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

Текущий архив: 2005.03.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
1-1109843862
e-mike
2005-03-03 12:57
2005.03.20
TExcelApplication - OLE error 800A03EC.


14-1109154227
[wl]
2005-02-23 13:23
2005.03.20
Подскажите веб-браузер для сотового (J2ME MIDP2.0)


3-1108627893
Innuendo
2005-02-17 11:11
2005.03.20
Тип данных параметра запроса для char(firebird) и varchar2(ora9)


3-1108733737
awod
2005-02-18 16:35
2005.03.20
Вопрос по отъеданию памяти Access-ом


14-1109767176
A.Veselyuk
2005-03-02 15:39
2005.03.20
Проблемы с железом