Oder wenn man es ohne SysUtils in sehr kleinen non-
Vcl Anwendungen braucht kann man auch
Code:
function DirectoryExists(const FilePath: string): Boolean;
var
Attr: Cardinal;
begin
Attr := GetFileAttributes(PChar(FilePath));
Result := (Attr <> $FFFFFFFF) and (Attr and FILE_ATTRIBUTE_DIRECTORY <> 0);
end;
das machen.