Dateigröße auf Netzlaufwerk ermitteln

[haentschman]

Hallo alle... :hi:

...und siehe da...es bewegt sich doch :-D

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 :firejump:

... FileName Syntax: \\firma-server\system\tmp\avdb.fdb

PS: diese Syntax habe ich auch mit den anderen Beispielen probiert... :gruebel:

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 :hi: