PDA

View Full Version : تعداد و حجم فایل در یک مسیر یا دایرکتوری؟



FirstLine
دوشنبه 07 خرداد 1386, 08:56 صبح
با سلام
چجوری میتونم تعداد فایل و مقدار حجم فایلها را در یک دایرکتوری یا درایو بدست بیاورم؟
البته منظورم از درایو یک MapDrive روی شبکه است.
با تشکر

SoftDevCo
سه شنبه 08 خرداد 1386, 02:11 صبح
function GetDirectorySize(const Path: string): LongInt;
var
S: TSearchRec;
TotalSize: LongInt;
begin
TotalSize:=0;
if FindFirst(ComposeFileName(Path,'*.*'), faAnyFile, S)=0 then
repeat
Inc(TotalSize, S.Size);
until FindNext(S)<>0;
result:=TotalSize;
end;
اضافه کردن کانتر هم با خودت.

فکر کنم توی MapDrive هم جواب بده.