FileExists und 2003 Server

[jbg]

Zitat von shmia:

PS: so klappt auch mit dem Nachbarn:

Delphi-Quellcode:

function FileExists(const FileName: string): Boolean;
var
  Attr: Cardinal;
begin
  Attr := GetFileAttributes(Pointer(Filename));
  Result := (Attr <> $FFFFFFFF) and (Attr and FILE_ATTRIBUTE_DIRECTORY = 0);
end;

Und das ist auch noch um einiges schneller als die Delphi 1-2005 Implementierung von FileExists. (BDS 2006 nutzt auch GetFileAttributes).