Delphi-Help

Описание

function ForceDirectories ( const Path : string ) : Boolean;

Функция ForceDirectories создает один или более вложенных каталогов, указанные Path.
Если создание успешно, то возвращается True, иначе ошибка может быть получена, используя GetLastError.

Пример кода

begin
// Пытаемся создать новый вложенный каталог в текущем каталоге
if CreateDir('C:\NonExistantDir\TestDir')
then ShowMessage('Добавление нового каталога прошло успешно')
else ShowMessage('Добавление нового каталога вызвало ошибку : '+
IntToStr(GetLastError));
// Now force it to create this directory
if ForceDirectories('C:\NonExistantDir\TestDir')
then ShowMessage('Добавление нового каталога прошло успешно')
else ShowMessage('Добавление нового каталога вызвало ошибку : '+
IntToStr(GetLastError));
end;

Добавление нового каталога вызвало ошибку : 3
Добавление нового каталога прошло успешно

Примечание