Создать путь к файлу

[Квэнди]

есть файл, его необходимо скопировать в c:\1\2\3\4\5\file.file
но путь такой отсутствует, начиная с любой иерархии. Есть ли готовая функция, которая создаст все необходимые папки ? Писать такое быстро и не сложно, но может все уже давно есть.

[SERG1980]

может это подойдёт
ForceDirectories(Dir: string): Boolean — создает новый каталог на диске. Позволяет одним вызовом создать все каталоги пути, заданного параметром Dir.

[mutabor]

Кажется есть, папки на всем протяжении пути создает, точно не помню, но стоит поискать во всяком случае. ForceDirectory?

[Квэнди]

ForceDirectory как раз оно, спасибо =)

[Stilet]

Есть ли готовая функция, которая создаст все необходимые папки ?

ForceDirectories('c:\1\2\3\4\5\')

В хелпе пример.

тьху ты... Опять не вовремя...

[Квэнди]

Реализация в JclFileutils больше понравилась нежели в Sysutils

function ForceDirectories(Name: string): Boolean;
var
  ExtractPath: string;
begin
  Result := True;
  if Length(Name) = 0 then
    {$IFDEF CLR}
    raise EJclFileUtilsError.Create(RsCannotCreateDir);
    {$ELSE}
    raise EJclFileUtilsError.CreateRes(@RsCannotCreateDir);
    {$ENDIF}
  Name := PathRemoveSeparator(Name);
  {$IFDEF MSWINDOWS}
  ExtractPath := ExtractFilePath(Name);
  if ((Length(Name) = 2) and (Copy(Name, 2,1) = ':')) or DirectoryExists(Name) or (ExtractPath = Name) then
    Exit;
  {$ENDIF MSWINDOWS}
  {$IFDEF UNIX}
  if (Length(Name) = 0) or DirectoryExists(Name) then
    Exit;
  ExtractPath := ExtractFilePath(Name);
  {$ENDIF UNIX}
  if ExtractPath = '' then
    Result := CreateDir(Name)
  else
    Result := ForceDirectories(ExtractPath) and CreateDir(Name);
end;