Функція 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 більше не існує
