Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Распознавание кодировки. Перекодировка.
   Категория: Текст и строки
  Узнать запущен ли сервис FireBird
   Категория: Интернет и Сети
  Получить имена всех папок и файлов в директории
   Категория: Файловая система
  Как нарисовать календарь
   Категория: Текст и строки
  Удалить свой же exe-шник
   Категория: Приложение
  Что значит Paramstr
   Категория: Приложение
  Перекодировка текста DOS-Windows-Koi8
   Категория: Текст и строки
  Как соединить несколько файлов в один
   Категория: Файловая система

Delphi - Справочник: ForceDirectories

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

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

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

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

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

  << Вернуться