Посчитать файлы и папки

[HTTqp]

Как подсчитать количество файлов и папок одной функцией, вот она

function FileCount(const aFolder: string): Integer;
var
  H: THandle;
  Data: TWin32FindData;
begin
  Result := 0;
  H := FindFirstFile(PCHAR(aFolder + '*.*'), Data);
  if H <> INVALID_HANDLE_VALUE then
    repeat
      Inc(Result, Ord(Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0));
    until
      not FindNextFile(H, Data);
  Windows.FindClose(H);
end;

она считает количество файлов, но если изменить часть кода на это:

      Inc(Result, Ord(Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 0));

где не равно 0 то будет считать поличество папок. А как это объеденить чтобы она подсчитало и то и другое сразу?

[Serge_Bliznykov]

м.б. так?

H := FindFirstFile(PCHAR(aFolder + '*.*'), Data);
  if H <> INVALID_HANDLE_VALUE then
    repeat
      Inc(Result);

p.s. не уверен, но мне кажется, что служебные папки с именами "." и ".." тоже подсчитаются. Если что - отфильтруйте их по имени...

[HTTqp]

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

м.б. так?

H := FindFirstFile(PCHAR(aFolder + '*.*'), Data);
  if H <> INVALID_HANDLE_VALUE then
    repeat
      Inc(Result);

p.s. не уверен, но мне кажется, что служебные папки с именами "." и ".." тоже подсчитаются. Если что - отфильтруйте их по имени...

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

ShowMessage('папок'+...+'файлов'+...)

[Serge_Bliznykov]

функция не может возвращать более одного значения (правда, это одно значение может быть структурой или массивом! )

поэтому, можно так поступить:

procedure FileDirCount(const aFolder: string; var FileCount, DirCount : integer);
var
  H: THandle;
  Data: TWin32FindData;
begin
  FileCount := 0; DirCount  :-= 0;
  H := FindFirstFile(PCHAR(aFolder + '*.*'), Data);
  if H <> INVALID_HANDLE_VALUE then
    repeat
      Inc(FileCount, Ord(Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0));
      if (Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 0) and
            (Data.Name<>'.') and (Data.Name<>'..') then Inc(DirCount);
    until  not FindNextFile(H, Data);
  Windows.FindClose(H);
end;

вызывать:

var ff, dd : integer;
begin
...
  FileDirCount('C:\WINDOWS\', ff, dd);
  ShowMessage('папок'+IntToStr(dd)+' файлов '+IntToStr(ff));
...

[northener]

Я бы ещё выкинул нафиг никому не нужную переменную H: THandle;

if FindFirstFile(PCHAR(aFolder + '*.*'), Data) <> INVALID_HANDLE_VALUE then

[HTTqp]

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

Я бы ещё выкинул нафиг никому не нужную переменную H: THandle;

if FindFirstFile(PCHAR(aFolder + '*.*'), Data) <> INVALID_HANDLE_VALUE then

насколько я знаю она проверяет отсутствие ошибок)
и почему то на (Data.Name<>'.') and (Data.Name<>'..') ругается пишет
[dcc32 Error] Unit1.pas(36): E2008 Incompatible types

[northener]

насколько я знаю она проверяет отсутствие ошибок)

Она, то бишь переменная H: THandle; ничего проверять не может в принципе. Ну это как общеизвестное "он же памятник! Кто ж его посадит!". Проверять можешь только ты, написав код для такой проверки.

[Serge_Bliznykov]

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

Я бы ещё выкинул нафиг никому не нужную переменную H: THandle;

if FindFirstFile(PCHAR(aFolder + '*.*'), Data) <> INVALID_HANDLE_VALUE then

во-первых, не учите плохому!
во-вторых, у и как Вы напишете продолжение поиска - процедуру FindNext, расскажите, пожалуйста.

и почему то на (Data.Name<>'.') and (Data.Name<>'..') ругается пишет
[dcc32 Error] Unit1.pas(36): E2008 Incompatible types

ну да, мой косячок, конечно. это же WinAPI, тут структура чуток другая.

Попробуйте так:

if (Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 0) and
            (Data.cFileName<>'.') and (Data.cFileName<>'..') then Inc(DirCount);

[HTTqp]

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

во-первых, не учите плохому!
во-вторых, у и как Вы напишете продолжение поиска - процедуру FindNext, расскажите, пожалуйста.



ну да, мой косячок, конечно. это же WinAPI, тут структура чуток другая.

Попробуйте так:

if (Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 0) and
            (Data.cFileName<>'.') and (Data.cFileName<>'..') then Inc(DirCount);

увы, не то)

[Serge_Bliznykov]

procedure FileDirCount(const aFolder: string; var FileCount, DirCount : integer);
var
  H: THandle;
  Data: TWin32FindData;
  Dir : string;
begin
  FileCount := 0; DirCount  := 0;
  Dir := IncludeTrailingBackslash(aFolder);
  H := FindFirstFile(PCHAR(Dir + '*.*'), Data);
  if H <> INVALID_HANDLE_VALUE then
    repeat
      Inc(FileCount, Ord(Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0));
      if (Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 0) and
        (String(Data.cFileName)<>'.') and (String(Data.cFileName)<>'..') then Inc(DirCount);
    until  not FindNextFile(H, Data);
  Windows.FindClose(H);
end;


procedure TForm6.Button1Click(Sender: TObject);
var ff, dd : integer;
begin
  FileDirCount(Edit1.Text, ff, dd);
  ShowMessage('В каталоге '+ Edit1.Text+ ' папок '+IntToStr(dd)+' файлов '+IntToStr(ff));
end;