Получение списка всех папкок

← →
Серёга (2004-02-19 12:42) [0]

Как получить список всех папок, находящихся, например, в каталоге "C:\1\"?

← →
Дед (2004-02-19 12:45) [1]

Элементарно: по FindFirst-FindNext с указанием атрибута Directory.. См. по F1 пример в Delphi.

← →
Серёга (2004-02-19 13:42) [2]

Можно немного поподробней?

← →
Плохиш (2004-02-19 13:48) [3]

> Серёга (19.02.04 13:42) [2]
> Можно немного поподробней?

Работу со справкой поподробней?

← →
ssk (2004-02-19 13:52) [4]

http://delphibase.endimus.com/?action=viewtopic&topic=filenames

← →
Дед (2004-02-19 14:01) [5]

const
maxDir = 255; { максимальное кол-во директорий }
var
SR: TSearchRec;
Res: Integer;
I: integer;
Path: string;
DirName: array[1..maxDir] of string;

Path:="C:\1\"; I:=0;

Res:=FindFirst(Path,faDirectory,SR);
While Res=0 do begin
Inc(I);
DirName[I]:=SR.Name;
Res:=FindNext(SR);
end;
FindClose(SR);

Примерно вот так, если нет грубых очепяток. В итоге в массиве
DirName будет список всех директорий, а I будет равно их количеству.

Получение списка всех папкок Найти похожие ветки