Delphi справочник - Форум программистов - Навигация  
 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      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
ForceDirectories
Функция
Создаёт новый путь каталогов SysUtils unit
  function ForceDirectories ( const Path : string ) : Boolean;
Описание
Функция ForceDirectories создает один или более вложенных каталогов, указанные Path.

Если создание успешно, то возвращается True, иначе ошибка может быть получена, используя GetLastError.
Похожие команды
CreateDir  Создаёт директорию

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

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

MkDir  Создаёт каталог

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

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

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

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

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

 
Пример кода : Создание нового пути на диске C
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
Добавление нового каталога прошло успешно
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия