Программирование на Delphi и не только Проверка существования директории (способ 1) | Программирование на Delphi и не только

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 каталог