Delphi-PRAXiS - Delphi Überprüfen eines Pfades auf seine Gültigkeit?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Überprüfen eines Pfades auf seine Gültigkeit? (https://www.delphipraxis.net/5528-ueberpruefen-eines-pfades-auf-seine-gueltigkeit.html)

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

Hallo!

Wie kann ich einen Pfad auf seine Existens Überprüfen?
Danke im vorraus!

Gruß 1PM

DirectoryExists.

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;