Список вложеных дерикторий

← →
lexus3d (2004-07-16 10:26) [0]

Здраствуйте мастера... вопрос возник... как мне получить список вложенных дерикторий (папок)... ну т.е. есть папка в ней ещё папки , так как мне узнать их имена?

← →
T1000 (2004-07-16 16:11) [1]

Привет!

Вот один думаю не очень харошай приемер.
Ранше я етом ползувался.

Надо плзуватся библиотеке FileCtrl.

procedure TForm1.Extract(Dir: String);
var
Dirs: TDirectoryListBox;
i: integer;

begin
if not DirectoryExists(Dir)then Exit;
Dirs:= TDirectoryListBox.Create(Self);
try
Dirs.Visible:= False;
Dirs.Parent := Self;
Dirs.Directory:= Dir;
if Dirs.ItemIndex+1 <= Dirs.Items.Count-1 then
for i:= Dirs.ItemIndex+1 to Dirs.Items.Count-1 do
ListBox1.Items.Add(Dirs.Items[i])
finally
Dirs.Free;
end;
end;{Extract}

procedure TForm1.Button1Click(Sender: TObject);
begin
Extract("C:");
end;

← →
clickmaker © (2004-07-16 16:27) [2]

FindFirst()
FindNext()

← →
SammIk © (2004-07-16 17:10) [3]

Рекурсивные функции.
Смысл:
Ищешь фаилы как посоветовали[2], если фаил директория
то вызываешь этуже ф-ю с новым путем.
Получится что обоидешь все директории.
И в факе был пример.

← →
Cobalt © (2004-07-17 09:24) [4]

> clickmaker ©
FindClose не забываем!!!

← →
lexus3d (2004-07-19 08:36) [5]

>SammIk
хорошо а как тогда узнать что то что я нашёл я вляется директорией.... ведь в Find...передаётся что то следующее
FindFirst(sDir,faAnyFile,sr)... где sDir это путь к папке где вложенные папки лежат!!! как узнать то тогда что то что я нашёл действительно является директорией?

← →
Anatoly Podgoretsky © (2004-07-19 09:00) [6]

FindNextFile

← →
lexus3d © (2004-07-19 10:44) [7]

> Anatoly Podgoretsky
не ну спасибо... то что пользоваться нужно Find"ом это я уже понял... как мне понять что в папке я нашёл именно вложенную папку а не файл ведь поиско по файлам происхожит sDir я получаю вот так:
ExtractFilePath(paramstr(0))+"skin\*.skn"
может вот так указывать "Skin\"или как узнать то что я папку нашёл?

← →
aLexx (2004-07-27 10:16) [8]

if (sr.attr and faDirectory) <> 0 then // нашлась папка else ... //а это нет

Красивее и удобнее по задаче
if (sr.attr and faDirectory) = faDirectory 0 then ...
Ну не нужны файлы

И заодно не принимать во внимание те, у которых имя равно "." или ".." :)

Можно оставить, все таки каталоги, но можно и не брать

Список вложеных дерикторий Найти похожие ветки