Форум: "Система";
Текущий архив: 2003.09.08;
Скачать: [xml.tar.bz2];

Вниз

Название папки   Найти похожие ветки 

← →
OlegL   (2003-06-24 14:55) [0]

Помогите чаику. Как мне узнать название всех папок из скажем одной папки.

---

← →
jel   (2003-06-24 14:58) [1]

FindFirst
FindNext
FindClose

---

← →
OlegL   (2003-06-24 15:02) [2]

А разве это работает и для папок, мне кажется что только для файлов.

---

← →
OlegL   (2003-06-24 15:34) [3]

Так что, получается не возможно.

---

← →
jel   (2003-06-25 10:43) [4]

procedure TForm1.Button1Click(Sender: TObject);
var sr : TSearchRec;
begin
if FindFirst("c:\*.*", faDirectory, sr) = 0 then
repeat
( sr.Attr and faDirectory = faDirectory) procedure TForm1.Button1Click(Sender: TObject);
var sr : TSearchRec;
begin
if FindFirst("c:\*.*", faDirectory, sr) = 0 then
repeat
if (sr.Attr and faDirectory = faDirectory) and (sr.Name[1] <> ".") then ListBox1.Items.Add(sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;

---

← →
Poirot   (2003-06-25 11:28) [5]

> sr.Attr and faDirectory = faDirectory

не уверен. что надо... вполне параметра в FindFirst.

---

← →
jel   (2003-06-25 12:49) [6]

> Poirot © (25.06.03 11:28)
>
> > sr.Attr and faDirectory = faDirectory
>
> не уверен. что надо... вполне параметра в FindFirst.


Надо - без него в листбоксе еще и файлы. Хотя по идее не должны бы.

---

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

Форум: "Система";
Текущий архив: 2003.09.08;
Скачать: [xml.tar.bz2];

Наверх

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