.. Du könntest den Fehler abfangen..
Delphi-Quellcode:
{*** Funktion um Dateigröße zu ermitteln ***}
function TfrmMain.getDateiGroesse(Dateiname :
string): int64;
var Datei : TFileStream;
begin
result := 0;
try
if (Fileexists(Dateiname))
then begin
g_pLogFile.Warning('
Try to open ' + Dateiname);
try
Datei := TFileStream.Create(Dateiname, fmOpenRead
OR fmShareDenyNone);
except
on E:
Exception do
g_pLogfile.Error('
Datei ' + Dateiname + E.
Message);
end;
result := Datei.Size;
end
else g_pLogfile.Error('
Datei ' + Dateiname + '
exisitiert nicht!')
finally
g_pLogFile.Warning('
Datei ' + Dateiname + '
wird freigegeben')
Datei.free;
end;
end;
{************************}
Grüße
Klaus