Überprüfen eines Pfades auf seine Gültigkeit?

[Christian Seehase]

Moin Zusammen,

wobei die Art und Weise, wie DirectoryExists unter D5 implementiert ist, unter Windows ME nicht unbedingt funktioniert (warum auch immer).

So sollte es gehen:

Delphi-Quellcode:

function DirectoryExists(const AsDirectory : string): boolean;

const
  INVALID_FILE_ATTRIBUTES = DWORD(-1);

var
  dwResult : DWORD;
begin
  Result   := false;
  dwResult := GetFileAttributes(PChar(AsDirectory));
  if dwResult = INVALID_FILE_ATTRIBUTES then exit;
  Result := (dwResult and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY;
end;