Проверка существования директории

[Gorin]

Добрый день.
Существует ли что-нибудь подобное FileExists для директорий?

[Орк]

if DirectoryExists(dirName)
then ShowMessage(dirName+' существует')
else ShowMessage(dirName+' не существует');

[Alar]

http://www.delphibasics.ru/DirectoryExists.php

[CoDeR]

У меня вопрос посложнее. Как проверить есть ли определённая подпапка в папке? если нет, то создать её.
Например так c:\1\2\3\
Сначала нужно проверить есть ли папка 1, если нет - то создать и потом проверить есть ли папка 2 и создать если нет, и т.д.
Как такое сделать?

[Alar]

Вот довольно просто, если каталог есть, то он не будет создан, этот исходник должен вывести код ошибки.

procedure TForm1.Button1Click(Sender: TObject);
//Пример кода : Создание каталога
var
error : Integer;

begin
// Попытка создать новый подкаталог в текущем каталоге
// Выключение проверки ошибок I/O
{$IOChecks off}
MkDir('C://1/2');

// Создание каталого прошло успешно?
error := IOResult;
if error = 0
then ShowMessage('Каталог создался успешно')
else ShowMessageFmt('Создание каталога провалилось с ошибкой %d',[error]);

{$IOChecks on}
end;

[CoDeR]

Видимо я не совсем правильно объяснил суть.
if DirectoryExists('c:\1\2\3\')
Папки 1 может и не быть! Как создать её а в ней создать папку 2 и папке 2 папку 3 ? Также может быть папка 2, но папки 3 может не быть! Надо как-то по очереди проверить существование каждой папки!

Вот это:
if DirectoryExists(''c:\1\2\')=false then
CreateDir(''c:\1\2\');
не работает так как нужно если нет папки 1. Мне нужно чтоб в этом случае создавалась папка 1, а в ней папка 2.

Alar, этот код тоже работает как надо если есть папка 1, а если нет - папки не создаёт.

[BOBAH13]

Элементарней просто нет. И кстати есть еще и функция в SysUtils ( вроде ) ForceDirectories. Читайте статьи например DelphiWorld. Именно из-за не охоты самому найти решение задачи и появляются подобные вопросы. И Вы пишете название темы "Существ. папки". А потом в ходе дела оказывается что Вам надо создать путь директории. Вы определитесь сразу.

алгоритм сразу на быструю руку:

var
i: integer;
path: string;
curpath: string;
begin
for i:= 1 to length(path) do
begin
if path[i] = '\' then
begin
curpath := copy(path, 1, i);
if {not or true} directoryexists(curpath) then ; // !!!
// createdirectory(pchar(curpath), NIL); // api WinNT
end;
end;
end;

вроде так...

[CoDeR]

BOBAH13, огромное спасибо! Всё оказалось просто: ForceDirectories('C:\1\2\3'); и всё как надо!

Всем кто пытался помочь спасибо!

Немного почистил. Тема закрыта //zetrix