Главная страница
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.042 c
3-83996
YuN
2003-05-28 15:59
2003.06.26
Проблема с кодировками (BDE)


1-84413
qwerty2
2003-06-06 16:32
2003.06.26
Создание DCOM объекта в Win98


4-84854
Demon[DZ]
2003-04-22 14:48
2003.06.26
Кнопка


1-84378
VISA
2003-06-09 11:54
2003.06.26
Событие при перемещении формы


1-84391
Dr. Andrew
2003-06-09 12:28
2003.06.26
Как изменить размеры компонента Image при масштабировании?