Подписаться на RSS рассылку
Главная » Статьи по 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('Дирректории успешно созданны');

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

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

0   Спам
(28.10.2012)
1. Александр
Поздравляю! Вы изобрели велосипед.
P.S. Cмотри ф-цию ForceDirectories


Имя *:
Email:


Код *:

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

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

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

Хостинг от uCoz

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

e-mail: save-x@yandex.ru

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