Hi, hier ein beispiel wie ich es mit Delphi mache
Delphi-Quellcode:
// return -1 if file not found else size in byte
function lwFileSize(sFileToExamine: string) : Longint;
var
fFile : file of Byte;
begin
Result := -1;
if FileExists(sFileToExamine) then
try
FileMode := 0;
AssignFile(fFile, sFileToExamine);
Reset(fFile);
Result := FileSize(fFile);
finally
Close(fFile);
end;
end;
ist diese art und weise veraltet und überholt?
Grüße
ps: ich wusst nicht wohin deshalb ist es hier gelandet.