Hallo alle...
...und siehe da...es bewegt sich doch
Delphi-Quellcode:
function GetFileSize2(const FileName: String): Integer; { TODO : Dateigröße ermitteln }
var
SR: TSearchRec;
ierr: integer;
begin
ierr := FindFirst(FileName, faAnyfile - faDirectory, sr);
while ierr = 0 do
begin
if (sr.name <> '.') and (sr.name <> '..') then
begin
DGrosse:= SR.Size / 1048576;
end;
ierr := FindNext(sr);
end;
FindClose(sr);
end;
...den Vorschlag von Christian angepaßt --> Ergebnis richtig
... FileName Syntax: \\firma-server\system\tmp\avdb.fdb
PS: diese Syntax habe ich auch mit den anderen Beispielen probiert...
Danke erst einmal... jetzt muß ich mir überlegen, wie ich an den Freigabenamen des lokalen Ordners komme, da der User nur den lokalen DatenbankPfad eingibt.
bis bald...Danke