Поиск в поткаталогах

← →
snake-as © (2008-11-29 17:45) [0]

Здравствуйте, мастера. Подскажите, пожалуйста, как решить такую задачу. Есть папка main, например. Есть в этой папка еще папки. dir1, dir2, dir3(причем я не знаю, как эти папки называются). У меня есть имя файла. Мне нужно его найти в папке main. Причем он можут быть в одной из этих подпапок. Как мне организовать этот поиск и как узнать, где находится файл, в корне или в подпапке. Заранее спасибо!

← →
KilkennyCat © (2008-11-29 17:48) [1]

Как ты думаешь, как часто может возникнуть такая задача?

← →
snake-as © (2008-11-29 18:05) [2]

Ладно, вопрос специфичный. А помогите еще, пожалуйстаЮ вот с каким делом. Я хочу получить список папок в подпапке, вот код:
Memo1.Clear;
if FindFirst("C:\*.*", faDirectory, sr) = 0 then
begin
Memo1.Lines.Add(sr.Name);
while FindNext(sr) = 0 do
Memo1.Lines.Add(sr.Name);
end;

FindClose(sr);

Но, он мне выдает список всех файлов и папок, как будто я использую аргумент faAnyFile. Не знаете, почему такое может быть?

← →
snake-as © (2008-11-29 18:05) [3]

← →
snake-as © (2008-11-29 18:06) [4]

Блин, лишнее сообщение нечайно написал.

← →
KilkennyCat © (2008-11-29 18:07) [5]

> snake-as © (29.11.08 18:05) [2]
> Ладно, вопрос специфичный

Отнюдь.

Это один из самых распространненых вопросов. Описан миллион раз. Практически в каждой книжке, на каждом форуме.

← →
snake-as © (2008-11-29 18:10) [6]

Все, понятно. Ищем, ищем..

← →
snake-as © (2008-11-29 18:23) [7]

хм. СТранно, не могу найти никак.

← →
snake-as © (2008-11-29 18:26) [8]

хм. СТранно, не могу найти никак.

← →
KilkennyCat © (2008-11-29 18:30) [9]

http://www.google.ru/search?hl=ru&q=Delphi+%D0%BF%D0%BE%D0%B8%D1%81%D0%BA+%D1%84%D0%B0%D0%B9%D0%BB%D0%BE%D0%B2&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D0%B2+Google&lr=

← →
Anatoly Podgoretsky © (2008-11-29 18:32) [10]

> snake-as (29.11.2008 18:23:07) [7]

Очень плохо, оказывается даже искать не можем. Только на данном форуме этот вопрос возникал не одну сотню раз. Вопрос входит в тен топ, первые три места.

← →
snake-as © (2008-11-29 18:35) [11]

Спасибо! Скажите, а все-таки, почему FindFirst("C:\*.*", faDirectory, sr) не отображает директорию?

← →
Тын-Дын © (2008-11-29 18:38) [12]

> почему FindFirst("C:\*.*", faDirectory, sr) не отображает
> директорию?

Какой каталог не отображает и где?

← →
snake-as © (2008-11-29 18:46) [13]

Memo1.Clear;
if FindFirst("C:\*.*", faDirectory, sr) = 0 then
begin
Memo1.Lines.Add(sr.Name);
while FindNext(sr) = 0 do
Memo1.Lines.Add(sr.Name);
end;

FindClose(sr);

Хочу отобразить все подкаталоги в папке. Но, почему-то он отображает все файлы, даже системные и скрытые.

> snake-as (29.11.2008 18:35:11) [11]

А что ты сделал, что бы отображало/не отображало?

> snake-as (29.11.2008 18:46:13) [13]

А где у тебя фильтрация каталог/не каталог?
Ты сам заказал отображать все файл + почти все каталоги

Понял. Думал это и есть фильтр. Тогда не проблема сделать фильтрацию. Спасибо! Пойду учить инглиш, чтобы нормально понимать документацию.

> snake-as (29.11.2008 19:07:16) [16]

Стой, куда, смени аттрибуты на faAnyFiles, а то не увидишь все каталоги.

Anatoly Podgoretsky © (29.11.08 19:25) [17]
незабудь напомнить про проверку на "каталожность"
а то будет маяться if sr.Attr=faDirectory then... (неправильно)

> Slym (29.11.2008 19:30:18) [18]

Пускай лучше лезет в FAQ например на моем сайте, там есть прекрасный пример.

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