Count of File s

← →
ronyn (2006-08-01 01:27) [0]

Как определить количество файлов в папке без использования громоздких процедур. Можно примерно - т.к. нужно для отображения процесса где кол-во файлов - это progress.max .
Заранее благодарен.

← →
Slym © (2006-08-01 06:20) [1]

function CountFiles(const Where: string):integer;
var
EMode:Dword;
FD:TWin32FindData;
hSearch:DWORD;
begin
result:=0;
EMode:=SetErrorMode(SEM_FAILCRITICALERRORS);
try
hSearch:=Windows.FindFirstFile(PChar(IncludeTrailingPathDelimiter(Where)+"*.*"),FD);
if hSearch<>INVALID_HANDLE_VALUE then
try
repeat
if FD.dwFileAttributes<>FILE_ATTRIBUTE_DIRECTORY then
Inc(result);
until not FindNextFile(hSearch,FD);
finally
Windows.FindClose(hSearch);
end;
finally
SetErrorMode(EMode);
end;
end;

← →
ronyn (2006-08-02 00:01) [2]

Спасибо!
Данный пример будет искать количество файлов папке. Но как сделать, что бы подпапки тожк учитывались и их контент тоже?

← →
AntiUser © (2006-08-02 00:24) [3]

ronyn (02.08.06 00:01) [2]

А если самому подумать?

> [2] ronyn (02.08.06 00:01)

использовать рекурсивный алгоритм поиска.

function CountFiles(const Where: string):integer; var EMode:Dword; FD:TWin32FindData; hSearch:DWORD; begin result:=0; EMode:=SetErrorMode(SEM_FAILCRITICALERRORS); try hSearch:=Windows.FindFirstFile(PChar(IncludeTrailingPathDelimiter(Where)+"*.*"),FD); if hSearch<>INVALID_HANDLE_VALUE then try repeat if FD.dwFileAttributes<>FILE_ATTRIBUTE_DIRECTORY then Inc(result) else Inc(result,CountFiles(IncludeTrailingPathDelimiter(Where)+FD.cFileName)); until not FindNextFile(hSearch,FD); finally Windows.FindClose(hSearch); end; finally SetErrorMode(EMode); end; end;

Count of File s Найти похожие ветки