Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Список папок   Найти похожие ветки 

 
RainKm   (2005-10-25 11:46) [0]

Здравсвуйте!
Вопрос такой: как получить список папок в директории?


 
clickmaker ©   (2005-10-25 12:16) [1]

FindFirstFile


 
Dereks ©   (2005-10-25 14:43) [2]

Код может выглядеть примерно так:
var
str: array[0..255] of string;
fileattrs,i: integer;
dir : string; //директория где ищутся папки
sr: TSearchRec;
countRec: integer;//кол.-во. найденных файлов
begin
 fileattrs:=faanyfile;
 if FindFirst(Dir+"*.*", FileAttrs, sr) = 0 then
   begin
     repeat //цикл длится до тех пор пока находятся файлы
      str[i]:=sr.Name;
      inc(i);
     until (FindNext(sr) <> 0) or (i=255);
     FindClose(sr);
   end;
 CountRec:=i;//узнаём кол.-во. найденных файлов.
Теперь в массиве str находятся имена  найденных папок или файлов.
Примечание: функция FindFirst ищет все файлы или папки находящиеся в данной директории.



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

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.036 c
2-1129442715
serg128
2005-10-16 10:05
2005.11.13
Как заменить первую маленькую букву на большую?


14-1130103424
asavkin
2005-10-24 01:37
2005.11.13
[работа] удаленная работа для программиста, Delphi


2-1130220071
btr
2005-10-25 10:01
2005.11.13
Расскажите про WideString


2-1129986766
Andrewmx
2005-10-22 17:12
2005.11.13
Как измерить время выполнения фрагмента кода


2-1129586539
Bogdan1024
2005-10-18 02:02
2005.11.13
как использовать javascript или vbscript в Дэлфи?