Размер файлов по маске. Опции

[Apache]

Здравствуйте, кто может мне помочь? Проблема в том, что мне нужно, чтобы программа показывала размер всех файлов маски “.mp3” в одной директории в мегабайтах. Как можно это реализовать?

[volvo]

FindFirst/FindNext в помощь:

uses dos;
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.

(учти, что название папки должно быть в формате 8.3)...

[Apache]

FindFirst/FindNext в помощь:

uses dos;
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.

(учти, что название папки должно быть в формате 8.3)...

Выскакивает такая ошибка Error 200 Division by zero как это можно исправить?

Сообщение отредактировано: Apache - 10.07.2008 17:15

[volvo]

Значит, тебе сюда: Error 200. Crt & Delay

(хотя где там у меня может быть деление на ноль, при условии что CRT не подключался, я не знаю, а догадываться, где это произошло - не собираюсь... На моей машине отработало нормально.)

Сообщение отредактировано: volvo - 10.07.2008 17:00

[Apache]

Значит, тебе сюда: Error 200. Crt & Delay

(хотя где там у меня может быть деление на ноль, при условии что CRT не подключался, я не знаю, а догадываться, где это произошло - не собираюсь... На моей машине отработало нормально.)

я создал новый .pas файл с тем кодом что ты дал. использувал только Dos

[Apache]

Все решил проблему, она была в компиляторе