Способ 1
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
uses FileCtrl; ... if DirectoryExists(DirName) then ShowMessage('Директория ' + DirName + ' существует');