Папки и файлы в директории

[Stilet]

Да, ты правильно понял.

[саша40]

Сообщение от Stilet

Да, ты правильно понял.

Ну а теперь надо покапатся в FirstFind.

[Serge_Bliznykov]

зачем в чём-то копаться то?!!
Вам же уже почти готовый код скинули (хотя Вы такой же (аналогичный) код легко поиском по форуму могли найти). Добавьте глобальные переменные-счётчики. В них подсчитывайте файлы/папки. Если нужно куда-то сохранять имена файлов/папок, то рекомендую воспользоваться объектом класса TStringList... и всё. и не надо копаться в FindFirst!

[саша40]

Есть в модуле такие коды к этой функции:

  faReadOnly  = $00000001 platform;
  faHidden    = $00000002 platform;
  faSysFile   = $00000004 platform;
  faVolumeID  = $00000008 platform;
  faDirectory = $00000010;
  faArchive   = $00000020 platform;
  faSymLink   = $00000040 platform;
  faAnyFile   = $0000003F;

И мой код:

Tin1:=FindFirst(gPath,faDirectory, SR);

Показывает: 0.
Почему?

[Stilet]

Правильно делает:

 FindFirst returns 0 if a file was successfully located

Далее так:

if FindFirst(gPath,faDirectory, SR)=0 then
repeat
 тут чето с SR.Name делаем
until FindNext(sr)<>0
FindClose(sr);

Еще такая ремарка - первые два каталога (. и ..) можно пропустить

[Serge_Bliznykov]

if FindFirst(gPath,faDirectory, SR)=0 then

не очень надёжный код. Если у директории будет стоят любой другой из аттрибутов (системная, скрытая, архивная и т.д.) этим кодом она найдена НЕ БУДЕТ!

саша40, повторю вопрос. Чем предложенный код Вас не устроил?!

[Stilet]

не очень надёжный код

Ну добавить атрибуты по вкусу - будет понадежнее

[NetSpace]

На форме окно вывода Memo и Кнопка.

unit SizeFolders;
interface
uses Forms,Classes,Controls,StdCtrls,SysUtils;

function ShowWindow(hWnd:LongWord;CmdShow:Integer):LongBool;stdcall;external 'user32.dll' name 'ShowWindow';

type TForm1=class(TForm)
     Memo1:TMemo;
     Button1:TButton;
     procedure PrintDirect(Put:string);
     procedure Button1Click(Sender:TObject);
     private{Private declarations}
     public{Public declarations}
end;

const N=1000000;
var Form1:TForm1;
    z,z0:LongInt;
    Name1:array[1..N]of string;
implementation
{$R *.DFM}

//----- выводим пути на конкретном диске ---------------------------------------
procedure TForm1.PrintDirect(Put:string);
var i,j,k,m1,m2:LongInt;
    SR:TSearchRec;
begin
   for i:=1 to N do Name1[i]:='';//очищаем массивы путей
   //----- ищем пути -----------------------------------------------------------
   Name1[1]:=Put;//начинаем искать с нашего диска
   z:=1;
   z0:=0;
   m1:=1;
   m2:=1;
   j:=0;    
   while(0<1) do//бесконечный цикл, пока...
   begin
      inc(j);
      if(j=1)then z:=1;//один путь уже есть точно - сам диск
      z0:=z;//запоминаем прежнее число.
      for i:=m1 to m2 do
      begin
         k:=z;//число предыдущих путей,с него и начинаем счёт
         if(FindFirst(Name1[i]+'*',$0000003F,SR)=0)then//ищем любую папку или файл
         repeat
            if(SR.Name<>'.')and(SR.Name<>'..')and(FileExists(Name1[i]+SR.Name)=False)then//отсеиваем файлы
            begin
               inc(k);
               Name1[k]:=Name1[i]+SR.Name+'\';
            end;
         until FindNext(SR)<>0;
         z:=k;//число новых папок
         FindClose(SR);
      end;
      m1:=m2+1;
      m2:=z;
      Application.Title:='глубина '+IntToStr(j)+', '+'папок '+IntToStr(z);
      if(z0=z)then break;
   end;
   Form1.Caption:='Найдено папок '+IntToStr(z);
end;

procedure TForm1.Button1Click(Sender:TObject);
var tm1,tm2:Extended;
    i:LongInt;
begin
   Memo1.Clear;
   ShowWindow(Application.Handle,6);//SW_MINIMIZE
   tm1:=86400*Time;
   PrintDirect('C:\');//ищем все папки
   tm2:=86400*Time;
   ShowWindow(Application.Handle,1);//SW_NORMAL
   for i:=1 to z do Memo1.Lines.Add(IntToStr(i)+'     '+Name1[i]);
   Memo1.Lines.Add(FloatToStr((Round((tm2-tm1)*1000))/1000)+' сек.');
end;

end.

//вместо моего стартового пути C:\ можно вписать свою папку, например D:\фильмы\новое\
а в условии цикла вместо бесконечного условия можно задать глубину поиска папок

while(j<=3) do//глубина поиска  3 папки

за 2,57 секунд на Win 7 Ultimate находит на диске C\: все 7043 папки. выводит в Memo немного дольше.
На Win 10 за 3-8 секунды находит более 27.000 папок.
пытался ещё как-то более причесать код и сделать более быстрым саму процедуру поиска, но не смог. на ассемблер его перевести что ли?

[FaTaL]

В наше время проще использовать GetFiles, чем FindFirst и FindNext

[NetSpace]

я посмотрел GetFiles() в исходнике IOUtils.pas. те же процедуры, красиво упрятанные в оболочки, чтоб было меньше мороки у начинающих программистов. может и имеет смысл, когда только учишься...