Главная страница
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.017 c
14-84594
Viktor_bs
2003-06-08 18:14
2003.06.26
Delphi + XML


3-83941
Stam
2003-05-23 10:26
2003.06.26
Ошибка при работе с Oracle - ORA-04031. Помогите...


14-84557
Саня
2003-06-07 11:05
2003.06.26
Как профессионально дать закзчику


1-84289
Александр из Минска
2003-06-07 21:34
2003.06.26
I/O error 32


1-84141
NailMan
2003-06-10 16:32
2003.06.26
Отключение скринсейвера