Zumindest die kurze Variante geht noch kürzer (Ok, hab' geschaut woher die SysUtils Funktionen die Infos holen):
Delphi-Quellcode:
function FileDirExists(s: String): Boolean;
begin
Result := GetFileAttributes(PChar(s)) <> $FFFFFFFF;
end;
Result kann man natürlich noch auswerten für eine differenzierte Rückgabe, aber dann ist es auch nicht mehr kürzer.
Ist NICHT das Gleiche wie in #5.
Funktioniert in WIN 8 nicht, aber kurzer Code in #5 geht.