Скачать: CL | DM;

Какие есть способы подсчитать количество файлов в директории?   Найти похожие ветки 

← →
Vorobyev Sergey   (2003-06-16 15:37) [0]

Привет всем!
Какие есть способы подсчитать количество файлов в директории?
Необходимо для прогрессбара..
Интересуют разные варианты..

---

← →
JibSkeart ©   (2003-06-16 15:40) [1]

findfirst
findnext

---

← →
MBo ©   (2003-06-16 15:41) [2]

http://delphimaster.net/view/15-1054732616/

ответ 1.

---

← →
Vorobyev Sergey   (2003-06-16 15:54) [3]

спасибо

---

← →
DVM ©   (2003-06-16 16:21) [4]

Это правда не посчет количества, а подсчет размера, но суть та же:

function GetDirectorySize(const Path: string): Int64;
var
FD : TWin32FindData;
FH : THandle;
TempSize: TULargeInteger;
begin
Result := 0;
if Path="" then exit;
if not(DirExists(Path)) then exit;
FH := FindFirstFile( PChar( Path + "*.*" ), FD );
repeat
if (FH<>INVALID_HANDLE_VALUE) and (FD.cFileName <> string(".")) and
(FD.cFileName<>string("..")) then
begin
if (FILE_ATTRIBUTE_DIRECTORY and FD.dwFileAttributes) <> 0 then
Inc(Result, GetDirectorySize(Path + FD.cFileName + "\"))
else
begin
TempSize.LowPart := FD.nFileSizeLow;
TempSize.HighPart := FD.nFileSizeHigh;
Inc(Result, TempSize.QuadPart);
end;
end;
until FindNextFile(FH,FD) = false;
FindClose(FH);
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c