Пример из FAQ не работает (список файлов и каталогов ЭВМ)

← →
Олеся (2002-08-26 13:28) [0]

Здравствуйте.

Я только начинаю изучать Паскаль и среду программирования Delphi, а мне потребовалось написать программу, которая создает список файлов и каталогов компьютера пользователя.

Практически сразу я нашла решение, которое написано в разделе faq : http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=1015254946&n=19

Когда я вставила пример в свою программу, то сначала я не заметила важной проблемы: если указать ScanDir("любой путь", "*.*", FileList.Items), то всё работает правильно, но если сделать вот так ScanDir("любой путь", "*.doc", FileList.Items), то программа просто просканирует корень указанного пути, не заходя в папки.

Как решить эту загвоздку моих знаний хватает, поэтому решила спросить у создателя этого применра - Анатолия Подгорецкого, которого судя по всему, затруднило дать мне ответ.

P.S. Когда я почитала сообщения на форуме, сложилось такое впечатление, что новичков здесь просто не любят, отправляя их во всякие MS SDK (хорошо преподаватель рассказал что это такое), FAQ и прочие. А как же быть таким как я, например - только 2 месяца как пользуюсь дома сетью интернет и не очень хорошо ориентируюсь где и что?

Спасибо.

← →
Skier © (2002-08-26 13:32) [1]

>Олеся
Дам здесь никогда не обижают.
Во всяком случае я такого не помню...

← →
Игорь Шевченко © (2002-08-26 13:49) [2]

И я не помню, чтобы дам обижали...

Но книжки читать даже дамам полезно :-)
Дело в том, что при задании маски "*.*" каталоги попадают в список найденных файлов, а при задании маски "*.doc" каталог попадет в список найденных файлов, только если он назнан, например MyDocs.Doc

Вам же надо вызвать поиск с маской "*.*" и выбрать все .doc -файлы самостоятельно, например

С уважением,

← →
Олеся (2002-08-26 14:00) [3]

>>Дам здесь никогда не обижают.

Да нет, Вы меня неправильно поняли. Как я поняла дамы здесь вообще практически отсутствуют. Я имела ввиду вообще новичков, которые задают, по мнению большинства, глупые вопросы. Так ведь это для Вас они глупые, а для нас они непреодолимая проблема.

>>Вам же надо вызвать поиск с маской "*.*" и выбрать все .doc -файлы самостоятельно, например

Я так и сделала - создала объект TStrings и проверяю, если есть расширение .doc и если это не каталог, то всё в порядке. Но насколько я поняла, есть и другие способы, о которых пока не знаю, или я ошибаюсь?

Есть.
Первым вызовом FindFirst/FindNext выбрать только каталоги. Процедуру, естественно, придется поменять.
Вторым вызовом пройти по выбранным каталогам, и в каждом искать файлы .doc

Пример из FAQ не работает (список файлов и каталогов ЭВМ) Найти похожие ветки