VPF::Работа с каталогами - Форум программистов

Sasha

Дата 4.11.2002, 20:44 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как в текущем каталоге просмотреть все каталоги ?

Vit

Дата 5.11.2002, 00:56 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

FindFirst/FindNext

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Sniper

Дата 5.11.2002, 07:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 511
Регистрация: 8.5.2002

Репутация: нет
Всего: 2

А если пример.. я уже две недели бьюсь над этим!

--------------------

"Я испытываю отвращение к системе, разработаннной для "пользователя", если в слове "пользователь" закодировано уничижительное значение "тупой и примитивный".
Кен Томпсон, создатель Unix

Vit

Дата 5.11.2002, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Если только текущие каталоги то что-то типа

Код


var searchrec:TSearchrec;
...
If FindFirst('c\*.*', faDirectory, SearchRec)=0 then
  repeat
    showmessage(SearchRec.Name);
  Until FindNext(SearchRec)<>0;
FindClose(SearchRec);

Писал на вскидку, так что возможнгы мелкие ошибки. Если надо пройти всё дерево каталогов - то см. наш FAQ - я там бросал пример по удалению каталога - там проходится всё дерево рекурсивно - небольшая модификация кода поможет выполнить твою задачу. Если не разберёшся - скажи, я постараюсь переделать код под тебя (но рекомендую разобраться - рекурсия довольно интересная штука...)

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »