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

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

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

подскажите как узнать список папок

all © (2005-09-19 17:40:00)
Здравствуйте,

есть путь к папке например 'c:/1'

как мне получить список всех папок находящихся в этой папке?

спасибо

all (2005-09-20 09:57:00) [1]
СПАСИБО !

Poirot (2005-09-20 08:07:00) [2]
Fay © (19.09.05 20:19) [7]
Не, я всё понимаю, но вот просто вызывать слоноподобную функцию ради проверки аттрибута вместо простой проверки аттрибута- это ли не есть "оптимизация" :))

ArtemESC © (19.09.05 20:40) [11]
Вопрос так ли ты проверяешь этот атрибут?:) Если бы он не работал то как следует из [7] он бы и в DirectoryExists не работал :) Вывод - где то ошибка у тя про его использовании :)

Anatoly Podgoretsky (2005-09-19 20:54:00) [3]
ArtemESC © (19.09.05 20:40) [11]
Ну это меняет дело :-)

Джо (2005-09-19 20:43:00) [4]

> [11] ArtemESC © (19.09.05 20:40)

Ты их не умеешь готовить :)

ArtemESC (2005-09-19 20:40:00) [5]
>>Джо ©
>>Fay ©

Во всяком случае у меня...

Fay (2005-09-19 20:34:00) [6]
ArtemESC © (19.09.05 20:26) [8]
бред

Джо (2005-09-19 20:33:00) [7]

> [8] ArtemESC © (19.09.05 20:26)
> faDirectory глюченная опция, если каталог с расширением,
> то
> он не считаеться каталогом.

Это новость.

ArtemESC (2005-09-19 20:26:00) [8]
>>Poirot © (19.09.05 20:14) [6]
>>Ужас, а по атрибутам уже нельзя догодаться, что у нас директория?!
faDirectory глюченная опция, если каталог с расширением, то
он не считаеться каталогом.

Fay (2005-09-19 20:19:00) [9]
2 Poirot © (19.09.05 20:14) [6]
Можно, этим занимается DirectroryExists 8)

Poirot (2005-09-19 20:14:00) [10]
ArtemESC © (19.09.05 19:12) [5]
Ужас, а по атрибутам уже нельзя догадаться, что у нас директория?!

ArtemESC (2005-09-19 19:12:00) [11]
var
SR : TSearchRec;
begin
If FindFirst(Dir + '*.*', faAnyFile, SR) = 0 then
repeat
If (SR.Name <> '.') and (SR.Name <> '..') and DirectroryExists(Dir + '\' +
SR.Name) then
StringList.Add(SR.Name);
until FindNext(SR) <> 0;
SysUtils.FindClose(SR);
end;

// Dir - должен оканичиваться на слеш (\)

Anatoly Podgoretsky (2005-09-19 18:58:00) [12]
Lamer@fools.ua © (19.09.05 18:14) [2]
Чтобы дважды это не делать.

Джо (2005-09-19 18:22:00) [13]

> [2] Lamer@fools.ua © (19.09.05 18:14)

А!!! Скопировал из похожей ветки в "Начинающим" :))))

Ничего, авось пригодится Ж:)

Lamer@fools.ua (2005-09-19 18:14:00) [14]
>> Джо © (19.09.05 17:44) [1]

А DeleteFile зачем? :-)

Джо (2005-09-19 17:44:00) [15]
FindFirst/FindNext/FindClose,DeleteFile. Примеры по всем 3 есть в Справке. Атрибут у папки - faDirectory.

Наверх

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