SysUtils.DirectoryExists

[himitsu]

Es kann gehn, aber muß nicht.

C:\ ist auch was Anderes als C:\test\

Denn C: ist relativ zum aktuellen Arbeitsverzeichnis dieses Laufwerks.



Ja, der Syntax nach könnte man es so sehn

c:\test\abc -> Datei oder Verzeichnis (je nach Attribut)

c:\test\abc -> Directory
c:\test\abc\ -> Path
c:\test\abc\. -> ParentDirecrory to Self

Achtung: FileExists prüft auf Datei oder Verzeichnis (wenn das Verzeichnis nicht gesperrt ist, sonst wird nochmal mit CreateFile versucht und das schlägt beim Verzeichnis meistens fehl, normal wegen fehlender Backup-Berechtigung)
TFile.Exists aber nur auf Datei -> TDirectory.Exists für Verzeichnis

[KodeZwerg]

Oder wenn man es ohne SysUtils in sehr kleinen non-Vcl Anwendungen braucht kann man auch

Code:

function DirectoryExists(const FilePath: string): Boolean;
var
  Attr: Cardinal;
begin
  Attr := GetFileAttributes(PChar(FilePath));
  Result := (Attr <> $FFFFFFFF) and (Attr and FILE_ATTRIBUTE_DIRECTORY <> 0);
end;

das machen.

[Frickler]

Zitat von himitsu:

Achtung: FileExists prüft auf Datei oder Verzeichnis (wenn das Verzeichnis nicht gesperrt ist, sonst wird nochmal mit CreateFile versucht und das schlägt beim Verzeichnis meistens fehl, normal wegen fehlender Backup-Berechtigung)
TFile.Exists aber nur auf Datei -> TDirectory.Exists für Verzeichnis

TFile.Exists() macht nichts anderes, als SysUtils.FileExists() aufzurufen und TDirectory.Exists() ruft SysUtils.DirectoryExists() auf.