fil størrelse

Jeg ved ikke hvad din fejl er men den her kan i hvertfald bruges :

Function GetFileSize(FileName : TFileName) : Integer;
var
  SearchRec : TSearchRec;
begin
  FileName := ExpandFileName(FileName);
  FindFirst(FileName,faAnyFile,SearchRec);
  Result := SearchRec.Size;
  FindClose(SearchRec);
end;


function ConvertBytes(i : Int64) : String;
begin
  if i< 1024 then
    Result := IntToStr(i) + \' Bytes\';

  if (i>=1024) and (i< 1024*1024) then
    Result := Format(\'%7.2f\',[i / 1024]) + \' KB\';

  if (i>=1024*1024) and (i< 1024*1024*1024) then
    Result := Format(\'%7.2f\',[i / (1024*1024)]) + \' MB\';

  if (i>=1024*1024*1024) and (i< 1099511627776) then
    Result := Format(\'%7.2f\',[i / (1024*1024*1024)]) + \' GB\';
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
//  Caption := IntToStr(GetFileSize(\'E:\\Bell Book and candle\\01. Hurry Up.MP3\'));
  Caption := ConvertBytes(GetFileSize(\'E:\\Bell Book and candle\\01. Hurry Up.MP3\'));
end;

på min maskine hedder min cd-rom drev E:

Jens B