Delphi-Help

Описание

procedure RmDir ( const DirectoryName : string ) ;

Процедура RmDir удаляет каталог из текущего каталога.

Если каталог не существует, то выбрасывается исключение EInOutError.

Вы можете избежать такого исключения, предотвращая ошибки IO, используя директива компилятора {$IOChecks Off}. Вы должны тогда проверять значение IOResult, чтобы видеть результат вашей операции IO (помните, что использование IOResult сбрасывает значение).

Пример кода

var
error : Integer;

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

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

// Удаление каталога для очистки
RmDir('TempDirectory');

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

Каталог создан
Каталог удалён

Примечание