Главная » Статьи по Delphi » Директории » Создать все дирректории указанные в пути

Создать все дирректории указанные в пути

Автор: Борисов Сергей

Function CreateFullDir(Dir:string):bool;
var dir2,temp:string;
begin
  Result:=true;
  try
    if dir[length(dir)]<>'\' then dir:=dir+'\';
    temp:=dir;
    While DirectoryExists(temp)=false do
    begin
      Dir2:=dir2+copy(dir, 1, pos('\',Dir));
      Delete(dir, 1, pos('\',Dir));
      CreateDir(dir2);
    end;
  except
    Result:=false;
  end;
end;

Например Вам нужно на диске C создать папку test а в ней папку test2:

if CreateFullDir('c:\test\test2') then 
  ShowMessage('Дирректории успешно созданны');

• избранник судьбы

  ivi.ru

• Видеорегистраторы

  О компании. Отчеты с автомобильных выставок.

  avtoblast.ru

Просмотров: 2081

Обсудить на форуме

---

Имя *:
Email:
Все смайлы
Код *:

Copyright © 2008-2012 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта

Гостевая книга