Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

9th
Фев

Узнать общее количество файлов в заданой папке

Posted by Chas under Delphi

Мне нужно узнать общее количество файлов в заданой папке. Папка может иметь вложение папки с файлами, ети файли тоже должны считаться.

Serge_Bliznykov
вот, когда-то использовал для своих целей (если что — подправите для себя)

function FilesCountInScanDirectory( cDirName : string) : integer;

var

  lCountResult : integer;

  SearchRec: TSearchRec;

begin

   lCountResult := 0;

   cDirName := IncludeTrailingBackslash(cDirName);

   if (FindFirst( cDirName+'*.*', faAnyFile, SearchRec)=0)

   then begin

       if (SearchRec.Attr and faDirectory)<>0 then begin

         if (Trim(SearchRec.Name)<>'.') and

              (Trim(SearchRec.Name)<>'..') then begin

           lCountResult := FilesCountInScanDirectory(

                             cDirName+SearchRec.Name) + lCountResult;

//           WriteLn('Find directory - ',cDirName+SearchRec.Name);

         end

       end

       else

        lCountResult := lCountResult + 1;

     while FindNext(SearchRec) = 0 do begin

       if (SearchRec.Attr and faDirectory)<>0 then begin

         if (Trim(SearchRec.Name)<>'.') and

              (Trim(SearchRec.Name)<>'..') then begin

           lCountResult := FilesCountInScanDirectory(

                             cDirName+SearchRec.Name) + lCountResult;

//           WriteLn('Find directory - ',cDirName+SearchRec.Name);

         end

       end

       else

        lCountResult := lCountResult + 1;

     end;

   end;

   FindClose(SearchRec);

   Result := lCountResult;

//   if lCountResult = 0 then

//      WriteLn( fLogFile, cDirName, '');

//   WriteLn('---- directory - ',cDirName,'  ',lCountResult);

end;

ещё один вариант может выглядеть так:

program CountOfFiles1;

{$APPTYPE CONSOLE}

uses SysUtils, Forms;
function  CountOfFiles(Dir: string) : integer;

var

  lResult : integer;

  SearchRec: TSearchRec;

begin

  Dir := IncludeTrailingBackslash(Dir);

  lResult := 0;
  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then

    repeat

      Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> 0 then begin

        if (SearchRec.name <> '.') and (SearchRec.name <> '..') then

              lResult := lResult +  CountOfFiles(Dir + SearchRec.name);

      end

      else

        Inc(lResult);

    until FindNext(SearchRec) <> 0;

  FindClose(SearchRec);

  CountOfFiles := lResult;
end;
// пример использования

const

  InitDir = 'C:\KAV\';
begin

  WriteLn(' In folder '+InitDir+ ' ', CountOfFiles(InitDir),' file(s).' );

  Readln

end.