Dateigröße auf Netzlaufwerk ermitteln

[haentschman]

Hallo alle...

es ist ja bald Weihnachten und ich gebe Euch mal eine Nuß zu knacken...

Vorraussetzungen:

-Firebird Datenbank auf Netzlaufwerk
-vorhanden: Hostname
-vorhanden: Pfad und Dateiname der Datenbank (lokaler Pfad)

Ergebnis soll sein:

-Dateigröße der Datenbank zu Infozwecken...

versucht habe ich...

Delphi-Quellcode:

function GetFileSizeA(const FileName: String): Integer;
var SR: TSearchRec;
begin
  Result := -1;

  if FindFirst(FileName, faAnyFile and not faDirectory, SR) = 0 then
  try
    Result := SR.Size;
  finally SysUtils.FindClose(SR) end;
end;

...funktioniert aber nur mit lokalen Pfadangaben. Das gleiche gilt für FileSize.

...alle Beispiele und Lösungen, welche ich gefunden habe, beziehen sich alle auf FileSize oder GetFileSize.


Welche Richtung würdet Ihr vorschlagen ?