Справочник функций и процедур Delphi: MkDir

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

MkDir
Процедура
Создаёт каталог System unit
  procedure MkDir ( const DirectoryName : string ) ;

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

ChDir  Выбор диска и директории ( папки ), в которой будет производиться работа

CreateDir  Создаёт директорию

GetCurrentDir  Возвращает текущий каталог (диск плюс каталог)

GetDir  Получает текущий каталог (диск плюс путь) для указанного диска.

IOResult  Содержит возвращаемый код последней операции ввода/вывода

RemoveDir  Позволяет удалить директорию

RmDir  Удаление каталога

SelectDirectory  Выводит диалоговое окно, с помощью которого пользователь может выбрать директорию

SetCurrentDir  Изменяет текущую директорию

ForceDirectories  Создаёт новый путь каталогов

 
Пример кода : Создание каталога и затем его удаление
var
  error : Integer;

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

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

  // Удаление каталога для очистки
  RmDir('TempDirectory');
  {$IOChecks on}
end;
Каталог создался успешно
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook