Работа с файлами

← →
Stas (2003-05-29 09:34) [0]

Как перебрать все файлы в папке и во вложеных в нее папках ?
Заранее Спасибо

← →
DVM (2003-05-29 09:39) [1]

Вот пример подсчета размера папки со всем содержимым, в нем есть ответ на вопрос.

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;

← →
Stas (2003-05-29 11:07) [2]

Спасибо.

Работа с файлами Найти похожие ветки