uses dos;(учти, что название папки должно быть в формате 8.3)...
function get_size(path, mask: string): longint;
var
sr: searchrec;
size: longint;
begin
size := 0;
findfirst(path + mask, anyfile, sr);
while doserror = 0 do begin
size := size + sr.size;
findnext(sr);
end;
get_size := size;
end;
begin
writeln('start');
writeln(get_size('F:\MyDir\', '*.mp3') / sqr(1024) :6 :2, ' Mb');
end.
uses dos;(учти, что название папки должно быть в формате 8.3)...
function get_size(path, mask: string): longint;
var
sr: searchrec;
size: longint;
begin
size := 0;
findfirst(path + mask, anyfile, sr);
while doserror = 0 do begin
size := size + sr.size;
findnext(sr);
end;
get_size := size;
end;
begin
writeln('start');
writeln(get_size('F:\MyDir\', '*.mp3') / sqr(1024) :6 :2, ' Mb');
end.