GetFileSize Aufbau - Größe einer Datei ermitteln

[EDatabaseError]

Ich habs jetzt:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  i: Integer;
  f: File of Byte;
  s: String;
begin
 s := 'I:\XXXXXXXXXXXX\Software\XXXXXx\database.DB';
 AssignFile(f,s);
 Reset(f);
 i := FileSize(f);
 CloseFile(f);
 showmessage(IntToStr(i));
end;