Количество файлов в папке.(Delphi)

[werder_ua]

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

[Xardas]

Используйте рекурсивный поиск файлов. FindFirst в поиске наберите и найдете много примеров использования

[Serge_Bliznykov]

Xardas, +1

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

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, '<?',lCountResult,'?>');
//   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.