Gibts Alternativen zu File-/DirectoryExists?

[Sir Rufo]

Die Alternative baut man sich selber (die Fingerübung zum Feierabend)

Delphi-Quellcode:

type
  TFileDirExistsRet = ( fdeNo, fdeFile, fdeDir );

function FileDirExists( const FileOrDir : string ) : TFileDirExistsRet;
begin
  if DirectoryExists( FileOrDir )
  then
    Result := fdeDir
  else if FileExists( FileOrDir )
  then
    Result := fdeFile
  else
    Result := fdeNo;
end;