Dateigröße auf Netzlaufwerk ermitteln

[haentschman]

also...

bei der Funktion ...mit \\localhost\c:\tmp\avdb.fdb

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;

... nach if direkt zu finaly ---> also Datei nicht gefunden.


bei der Funktion ...mit \\localhost\c:\tmp\avdb.fdb

Delphi-Quellcode:

function GetFileSize1(const szFile: String): Int64;
var
  fFile: THandle;
  wfd: TWIN32FINDDATA;
begin
  result := 0;
  if not FileExists(szFile) then exit;
  fFile := FindFirstfile(pchar(szFile),wfd);
  if fFile = INVALID_HANDLE_VALUE then exit;
  result := (wfd.nFileSizeHigh*(MAXDWORD))+wfd.nFileSizeLow;
  windows.FindClose(fFile);
end;

... nach if not FileExists direkt exit ---> also Datei nicht gefunden.


... mit c:\tmp\avdb.fdb ... bekomme ich den richtigen Wert.


ich weiß nicht weiter...

[edit]
GetLastError = 0
[/edit]