DirectoryExists unter Vista Home ohne Funktion

[Christian Seehase]

Moin haentschman,

probier' doch bitte mal diese Version:

Delphi-Quellcode:

function csDirectoryExists(const AsFolder : string) : boolean;

var
  hHandle : DWORD;

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