DirectoryExists mit SysUtils

Biarchiv · Beiträge: 688

Hallo,

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

Danke.

Ehemaliges Mitglied Erhaltene Danke: 1

Warum?

Biarchiv · Beiträge: 688

Hallo,

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

Wolte nur Fragen obs da was gibt?

AndyB · Beiträge: 1173 Erhaltene Danke: 14 RAD Studio XE2

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

_________________
Ist Zeit wirklich Geld?

Ehemaliges Mitglied Erhaltene Danke: 1

www.luckie-online.de -> Downloads -> Toolbox -> FileTools.inc

AndyB · Beiträge: 1173 Erhaltene Danke: 14 RAD Studio XE2

Ums abzukürzen:

markieren

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;

_________________
Ist Zeit wirklich Geld?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme