Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: 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 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
1-84421
next2
2003-06-09 17:24
2003.06.26
при создании новой компоненты ошибка...


8-84471
Borh
2003-03-08 22:47
2003.06.26
Прозрачные элементы интерфейса


14-84713
dor
2003-06-05 14:41
2003.06.26
Господа,как из программы скачать определенный файл с инета


14-84650
` frizZ. `
2003-06-10 12:07
2003.06.26
От чего зависит размер скомпилированного файла ?


14-84718
Дмитрий К.К.
2003-06-05 06:23
2003.06.26
Именинники 5 июня