VPF::Как найти все директории внутри заданной?

Fighter

Дата 1.4.2007, 19:55 (ссылка)

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

Загрузка ...

Опытный

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

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

САБЖ

Sunvas

Дата 1.4.2007, 20:10 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Код


Procedure GetSubDir(Dir:string);
var SearchRec:TSearchRec;
begin
if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
repeat
if (SearchRec.name='.') or (SearchRec.name='..') then continue;
if (SearchRec.Attr and faDirectory)<>0 then
Showmessage(Dir+SearchRec.name); //Показ директорий.
GetSubDir(Dir+SearchRec.name);//Эту сточку можно убрать, если не нужно сканировать СубДиректории
until FindNext(SearchRec)<>0;
FindClose(SearchRec);
end;

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Beltar

Дата 2.4.2007, 12:16 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 0
Всего: 7

Купить у меня компонент для этого. smile

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile

(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.

Fighter

Дата 2.4.2007, 18:06 (ссылка)

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

Загрузка ...

Опытный

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

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

Да, мне уже написали как искать, я теперь то уж и сам напишу такой компонент и сам смогу продавать. И самая моя ошибка была, это то, что я не писал '*.*'. Вот и ффсё.

Добавлено через 22 секунды
З.Ы. Sunvas - ПАСИБО!!!

Beltar

Дата 3.4.2007, 15:30 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 0
Всего: 7

Не напишешь, ибо у меня он очень удобный и в отдельном потоке т. е. не вешает систему даже если весь диск шманать будешь и вообще супер-пупер. smile

PS Но лучше все-таки напиши, или мой найди (где-то на форуме валяется аттачем под именем FileSearchThread.rar) все равно потом еще где-нибудь понадобиться.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile

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