Функция DirectoryExists в Delphi возвращает True, если указанная директория существует.
SysUtils unit
function DirectoryExists (const DirectoryName : string) : Boolean;
Функция DirectoryExists возвращает True, если данный DirectoryName файл существует.
Каталог разыскивается в текущем каталоге.
False может быть возвращена, если пользователю не разрешено видеть файл.
Функция DirectoryExists: Проверяем каталог перед и после его удаления
var
dirName : String;
begin
// Создание нового каталога
dirName := 'Test Folder';
CreateDir(dirName);
// Теперь проверяем существует ли каталог
if DirectoryExists(dirName)
then ShowMessage(dirName+' существует')
else ShowMessage(dirName+' не существует');
// Удаление каталога и просмотр снова
RemoveDir(dirName);
if DirectoryExists(dirName)
then ShowMessage(dirName+' всё ещё существует!')
else ShowMessage(dirName+' больше не существует');
end;
Результат
Test Folder существует
Test Folder больше не существует
