Dateigröße auf Netzlaufwerk ermitteln

[haentschman]

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