Gibts Alternativen zu File-/DirectoryExists?

[himitsu]

und noch 'ne Fingerüberung nach dem Feierabend

Delphi-Quellcode:

type
  TFileDirExistsRet = (fdeNo, fdeFile, fdeDir);

function FileDirExists(const FileOrDir: String): TFileDirExistsRet;
var
  FindFileData: TWIN32FindData;
begin
  FindFileData.dwFileAttributes := INVALID_FILE_ATTRIBUTES;
  Windows.FindClose(FindFirstFile(PChar(FileOrDir), FindFileData));
  if FindFileData.dwFileAttributes = INVALID_FILE_ATTRIBUTES then
    Result := fdeNo
  else if FindFileData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
    Result := fdeFile
  else
    Result := fdeDir;
end;

// oder

function FileDirExists(const FileOrDir: String): Boolean;
var
  FindFileData: TWIN32FindData;
begin
  FindFileData.dwFileAttributes := INVALID_FILE_ATTRIBUTES;
  Windows.FindClose(FindFirstFile(PChar(FileOrDir), FindFileData));
  Result := FindFileData.dwFileAttributes = INVALID_FILE_ATTRIBUTES;
end;