Entwickler-Ecke

Dateizugriff - DirectoryExists mit SysUtils


Biarchiv - Di 27.05.03 17:35
Titel: DirectoryExists mit SysUtils
Hallo,

Gibt es noch einen anderen Befehl um ein Verzeichnis auf Existens zu ermitteln ausser
DirectoryExists in der FileCTRL until?

Danke.


Delete - Di 27.05.03 17:57

Warum?


Biarchiv - Di 27.05.03 18:23

Hallo,

Es geht reihn um eine DosCommand Programm ohne Forms das eher klein gehalten
werden soll.

Wolte nur Fragen obs da was gibt?


AndyB - Di 27.05.03 19:16

FindFirst/FindClose. Ach ja, die sind auch in SysUtils deklariert.


Delete - Di 27.05.03 20:37

http://www.luckie-online.de -> Downloads -> Toolbox -> FileTools.inc


AndyB - Di 27.05.03 20:54

Ums abzukürzen:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
function DirExists(const Dir: string): Boolean;
var Attr: Cardinal;
begin
  Attr := GetFileAttributes(PChar(Dir));
  Result := (Attr <> Cardinal(-1)) and (Attr and FILE_ATTRIBUTE_DIRECTORY <> 0);
end;