Проверка существования директории (способ 1)

Delphi FAQ >> Файлы и каталоги

function _Directory_Exist (_Dir : String) : Boolean;
var
  OldMode : Word;
  OldDir : String;
begin
  Result := True;
  GetDir(0, OldDir);
  OldMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    try
      ChDir(_Dir);
    except
      on EInOutError do
        Result := False;
    end;
  finally
    ChDir(OldDir);
    SetErrorMode(OldMode);
  end;
end;

Ссылки в тему:
  Проверка существования директории (способ 2)

---

Лучшая косметика mary kay каталог