prüfen ob pfad existiert (z.B. 'c:\')

[Christian Seehase]

Moin changlee,

probier's mal hiermit:

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;

mit der originalen Version hatte ich unter Windows ME auch das Problem, dass die Funktion nicht tat was sie sollte, mit dieser hat es dann funktioniert. Wie es sich mit 98 verhält, weiss ich nicht.