Скачать: CL | DM;

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

← →
Серёга   (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 будет равно их количеству.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c