Ist pfad ein dateipfad oder ordnerpfad?

[Robert Marquardt]

Ein Ordner darf eine beliebige Extension haben.
Man rufe die JCL zu Hilfe:

Delphi-Quellcode:

function IsDirectory(const FileName: string): Boolean;
var
  R: DWORD;
begin
  R := GetFileAttributes(PChar(FileName));
  Result := (R <> DWORD(-1)) and ((R and FILE_ATTRIBUTE_DIRECTORY) <> 0);
end;