Delphi World - Создание указанного пути
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Создание указанного пути

Автор: VID
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Создание указанного пути

Функция CreateDirEx создаёт указанный путь DIR. В отличии от функции CreateDir,
для CreateDirEx нет необходимости существования каталога, в которому будет
размещаться создаваемый новый каталог.
Т.е., пусть существует путь
C:\Folder
Нам надо создать путь C:\Folder\Level1\Level2
При использовании CreateDir пришлось бы дважды вызывать эту функцию, сначала
для создания C:\Folder\Level1\ а затем для C:\Folder\Level1\Level2.
В случае работы с функцией CreateDirEx ей достаточно лишь передать параметр:
CreateDirEx('C:\Folder\Level1\Level2') и необходимый путь будет создан,
в независимости от того существовала вообще ли до этого папка C:\Folder

Зависимости: FileCtrl, SysUtils
Автор:       VID, snap@iwt.ru, ICQ:132234868, Махачкала
Copyright:   VID
Дата:        28 января 2003 г.
***************************************************** }

function CreateDirEx(Dir: string): Boolean;
var
  I, L: Integer;
  CurDir: string;
begin
  if ExcludeTrailingBackslash(Dir) = '' then
    exit;
  Dir := IncludeTrailingBackslash(Dir);
  L := Length(Dir);
  for I := 1 to L do
  begin
    CurDir := CurDir + Dir[I];
    if Dir[I] = '\' then
    begin
      if not DirectoryExists(CurDir) then
        if not CreateDir(CurDir) then
          Exit;
    end;
  end;
  Result := True;
end;

Пример использования:

CreateDirEx(AnyFolderName),
// где AnyFolderName - любой допустимый в файловой системе путь.
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования