Описание
Процедура создает подкаталог по заданному пути Path. Путь не должен содержать имя файла.
Пример
Приведенный пример проверяет, существует ли в каталоге 'C:\DRV\DOS\' подкаталог 'CDROM'. Если нет, то указанный каталог создается. Каталог 'C:\DRV\DOS\' уже должен существовать на диске, иначе возникнет ошибка ввода/вывода. var
S: string; begin {$I-}
S:= 'C:\DRV\DOS\CDROM'; if DirectoryExists(S) = false then MkDir(S); if IOResult<>0 then
MessageDlg('Невозможно создать каталог', mtWarning, [mbOk], 0); {$I+} end;
Для создания сразу нескольких вложенных каталогов используйте процедуру ForceDirectories