Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Пример из FAQ не работает (список файлов и каталогов ЭВМ) [D5, Win95/98]

Олеся © (2002-08-26 13:28:00)
Здравствуйте.

Я только начинаю изучать Паскаль и среду программирования 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 месяца как пользуюсь дома сетью интернет и не очень хорошо ориентируюсь где и что?

Спасибо.

Игорь Шевченко (2002-08-26 14:11:00) [1]
Есть.
Первым вызовом FindFirst/FindNext выбрать только каталоги. Процедуру, естественно, придется поменять.
Вторым вызовом пройти по выбранным каталогам, и в каждом искать файлы .doc

Олеся (2002-08-26 14:00:00) [2]
>>Дам здесь никогда не обижают.

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

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

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

Игорь Шевченко (2002-08-26 13:49:00) [3]
И я не помню, чтобы дам обижали...

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

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

С уважением,

Skier (2002-08-26 13:32:00) [4]
>Олеся
Дам здесь никогдане обижают.
Во всяком случае я такого не помню...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »