FileExists aber FolderExists gibts nicht?

[Christian Seehase]

Moin Seikilos,

da ich schon mal auf das Problem gestossen bin, dass die Implementierung von DirectoryExists aus D5 unter Windows ME nicht so recht funktioniert hat (warum auch immer), hier noch einmal eine Variante die auch die's auch da tut:

Delphi-Quellcode:

function DirectoryExists(const AsDir : string) : boolean;

var
  dwAttr : DWORD;

begin
  result := false;
  dwAttr := GetFileAttributes(PChar(AsDir));
  if dwAttr = DWORD(-1) then
  begin
    exit;
  end;
  result := (dwAttr and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY;
end;