Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

За 2004-09-17

Re[3]: Поиск директорий. Почему так?

Hello Денис,

Thursday, September 16, 2004, 8:51:45 PM, you wrote:

Д> Доброго времени суток, Александр.
Д> Вы писали 16 сентября 2004 г., 20:49:17
Д> на тему "Поиск директорий. Почему так?"

АТ>> а попробуы выполнить md c:\1.1
Д> Попробовал. Создалась директория 1.1 .И что?

АТ>> А твой код достаточно поправить так:

АТ>> FindFirst ('c:\*', faDirectory, SR);

Д> Теперь находит все, включая файлы...

параметр Attr, который равен faDirectory не значит, что искать только
папки, а означает, что в дополнение к "нормальным" файлам включить в
поиск ещё и папки.
RTFM.

   Ivan Mikheikin 2004-09-17 21:26:11 (#230213)

Re[3]: Поиск директорий. Почему так?

>
> АТ> а попробуы выполнить md c:\1.1
> Попробовал. Создалась директория 1.1 .И что?
>
> АТ> А твой код достаточно поправить так:
>
> АТ> FindFirst ('c:\*', faDirectory, SR);
>
> Теперь находит все, включая файлы... А надо только директории!
>
>

почему бы не использовать проверку:
if Search.Attr and faDirectory = faDirectory then

Номер выпуска : 3563
Возраст листа : 361 (дней)
Количество подписчиков : 462
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/230170
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Подписан адрес:
Код этой рассылки: comp.soft.prog.prog
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписать: mailto:comp.soft.prog.prog--unsub@subscribe.ru?subject=comp.soft.prog.prog

http://subscribe.ru/ http://subscribe.ru/feedback

   2004-09-17 20:15:50 (#230170)

Re[3]: Поиск директорий. Почему так?

АТ>> а попробуы выполнить md c:\1.1
Д> Попробовал. Создалась директория 1.1 .И что?
Наверное, только то, что винт работает.-))))

АТ>> А твой код достаточно поправить так:

АТ>> FindFirst ('c:\*', faDirectory, SR);

Д> Теперь находит все, включая файлы... А надо только директории!
Может, коряво будет, но думаю сработает:
{$I-}
FindFirst ('c:\*', faDirectory, SR);
ChDir('c:\'+SR.Name);
if IOResult = 0 then
{$I+}

То есть, попробуем зайти в то, что нашли.

   Шешунов Вадим 2004-09-17 20:15:37 (#230169)

Re[3]: Поиск директорий. Почему так?

[root@localhost]#, Денис.

АТ>> FindFirst ('c:\*', faDirectory, SR);

Д> Теперь находит все, включая файлы...

Тогда может, так:
if FindFirst(c:\*.*, faAnyFile, S) then
repeat
if not ((S.Attr and faDiractory) = faDirectory) and
(S.Name <> '.') and (S.Name <> '..')) then continue;

dosome1;
dosome2;

until (not FindNext(S))
FindClose(S);

   "B." 2004-09-17 19:55:01 (#230161)