| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Название папки
OlegL © (2003-06-24 14:55:00)
Помогите чаику. Как мне узнать название всех папок из скажем одной папки.
jel (2003-06-25 12:49:00) [1]
> Poirot © (25.06.03 11:28)
>
> > sr.Attr and faDirectory = faDirectory
>
> не уверен. что надо... вполне параметра в FindFirst.
Надо - без него в листбоксе еще и файлы. Хотя по идее не должны бы.
Poirot (2003-06-25 11:28:00) [2]
> sr.Attr and faDirectory = faDirectory
не уверен. что надо... вполне параметра в FindFirst.
jel (2003-06-25 10:43:00) [3]
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;
OlegL (2003-06-24 15:34:00) [4]
Так что, получается не возможно.
OlegL (2003-06-24 15:02:00) [5]
А разве это работает и для папок, мне кажется что только для файлов.
jel (2003-06-24 14:58:00) [6]
FindFirst
FindNext
FindClose
| |
