Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как узнать количество папок?

Автор: Silmarion 15.12.2005, 17:49

Всем привет!
Подскажите как узнать количество именно ПАПОК в определенной папке (извеняюсь за татарщину но как сказать по другом не знаю).
Если можно то с примером, а если есть аналогичная функция, то вы меня вообще спасете!

Автор: z-END 15.12.2005, 17:52

Silmarion
http://forum.vingrad.ru/index.php?showtopic=74576&view=findpost&p=590037
переделай под папки

Автор: Poseidon 15.12.2005, 21:25

Цитата(z @ 15.12.2005, 17:52)

переделай под папки

переделал

Код

Function FilesCount (Dir: string):Integer;
var SearchRec:TSearchRec;
begin
 Result:=0;
 if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
 if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
 repeat
 if (SearchRec.name='.') or (SearchRec.name='..') then continue;
 if (SearchRec.Attr and faDirectory) = 0 
 then 
 else Result := Result+1;
 until FindNext(SearchRec)<>0;
 FindClose(SearchRec);
end;

Автор: z-END 15.12.2005, 21:32

Poseidon тоже мне передельщик smile

Код


Function FilesCount (Dir: string):Integer;    
var SearchRec:TSearchRec;    
begin    
 Result:=0;    
 if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';    
 if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then    
 repeat    
 if (SearchRec.name='.') or (SearchRec.name='..') then continue;    
 if (SearchRec.Attr and faDirectory) <> 0  then Result := Result+1;    
 until FindNext(SearchRec)<>0;    
 FindClose(SearchRec);    
end;

Автор: Poseidon 15.12.2005, 21:44

А какая разница?
Добавлено @ 21:45
или

Код


if (SearchRec.Attr and faDirectory) = 0 
 then 
 else Result := Result+1;

или

Код

if (SearchRec.Attr and faDirectory) <> 0 then Result := Result+1;