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

Автор:

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('Дирректории успешно созданны');

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

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

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

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

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