DirectoryExists für Delphi 5

[xZise]

Gibt es eine Möglichkeit DirectoryExists in Delphi 5 nachzuproggen?

[raiguen]

:roll: :gruebel: Wieso nachproggen??? In D5 gibt es die Funktion bereits (Unit FileCtrl; in uses eintragen)

[xZise]

Seltsam... Normalerweise gehts nämlich ohne...

[Christian Seehase]

Moin Fabian,

Zitat:

Zitat von xZise

Seltsam... Normalerweise gehts nämlich ohne...

kommt drauf an, was Du als normal ansiehst.
Zumindest ab D7 befindet sich die Funktion in SysUtils.

Übrigens hättest Du über die Suche, aller Voraussicht nach, ein paar Versionen gefunden, wie man die Funktion umsetzen kann. ;-)

[xZise]

Gesucht habe ich ja. Und entweder ich komm niht damit zurecht, habe kP wie man gute Stichwrter wählt, oder es gibt kein Thema dazu ;)

Ich habe bisher nur kurz mit D6 gearbeitet (dann aber mt D2k5, D7 und jetzt mit TD)

[Luckie]

Delphi-Quellcode:

function DirectoryExists(const Directory: string): Boolean;
var
  Code: Integer;
begin
  Code := GetFileAttributes(PChar(Directory));
  Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0);
end;