API-Funktion zur Pfadüberprüfung

[valon]

Hallo!

ne Frage.

Ich habe einen Pfad zb. C:\daten\users . Es muss doch ne API Funktion geben die überprüfen kann, ob dieser Pfad existiert.
Ich hab danach gesucht , doch ich finde nichts.

Kennt ihr die Funktion?

Danke!

[shmia]

Aus der JCL kopiert:

Delphi-Quellcode:

function DirectoryExists(const Name: string): Boolean;
var
  R: DWORD;
begin
  R := GetFileAttributes(PChar(Name));
  Result := (R <> DWORD(-1)) and ((R and FILE_ATTRIBUTE_DIRECTORY) <> 0);
end;

[Brüggendiek]

Hallo!

Jaja, warum einfach, wenn es umständlich geht!

Bei mit (D5 Standard) ist die Funktion DirectoryExists schon vorhanden - in der Unit FileCtrl.

Gruß

Dietmar Brüggendiek

[Christian Seehase]

Moin Zusammen,

ich hätte dann noch diese Variante beizusteuern:

Delphi-Quellcode:

function  DirectoryExists(const AsDirectory : string) : boolean;

var
  hHandle : DWORD;

begin
  hHandle := CreateFile(PChar(AsDirectory),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_FLAG_BACKUP_SEMANTICS,0);
  Result := (hHandle <> INVALID_HANDLE_VALUE);
  if Result then CloseHandle(hHandle);
end;

@Dietmar:

Zitat von Brüggendiek:

Jaja, warum einfach, wenn es umständlich geht!
Bei mit (D5 Standard) ist die Funktion DirectoryExists schon vorhanden - in der Unit FileCtrl.

Bei mir auch, aber ich hatte schon den Fall, dass die mitgelieferte Funktion unter Windows ME nicht funktioniert hat. Ein vorhandenes Directory wurde nicht erkannt. Mit der CreateFile Version hat es dann geklappt.