Копирование файлов(с созданией Иерархии)

[russian-stalker]

Мне надо скопировать файл:
С пути который указывается в edit1.text
И путь который указывается в edit2.text

При этом папки не созданы, так вот, как мне копировать в файл с полным воссозданием пути

[russian-stalker]

Написал так:

for i:=1 to s.Count -1 do
begin
q:='X:\'+s[i];
w:=PChar(q);
e:=edit3.Text+'\'+s[i];
r:=PChar(e);
copyfile(w,r,true)
end;

Сохраняет только если создана папка для файла, а как сделать чтобы программа сама создавала папку.

[eoln]

sysutils.ForceDirectories('c:\1\2\3')

[Serge_Bliznykov]

может в FileCopy/FileCopyEx есть такая возможность.

но можно ручками создать нужный путь:

uses FileCtrl, SysUtils;
...
var PathName : string;
...
  PathName := ExtractFilePath(Edit2.Text);
  if ForceDirectories(PathName) then
    {нужные папки успешно созданы - можно копировать файл...}

внимание. всё писал прямо тут. надо проверять.

[Ozerich]

Счас попытаюсь написать

[russian-stalker]

for i:=1 to s.Count -1 do
begin
q:='X:\'+s[i];
w:=PChar(q);
e:=edit3.Text+'\'+s[i];
r:=PChar(e);
  PathName := edit3.Text+'\'+s[i];
  if ForceDirectories(PathName) then
copyfile(w,r,false);
end;

Здесь создаются папки (random).crack(Так как являются частью пути). А они не должны. Как исправить?

[russian-stalker]

Как стереть каждую строчку до "\" Чтобы это исправить?

[Ozerich]

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;

вот функция создает тебе папку

[Ozerich]

ну а потом

CreateFullPath(extractfilePath(newfile))

[russian-stalker]

for i:=1 to s.Count -1 do
begin
q:='X:\'+s[i];
w:=PChar(q);
e:=edit3.Text+'\'+s[i];
r:=PChar(e);
PathName := edit3.Text+'\'+s[i];
if ForceDirectories(PathName) then
copyfile(w,r,false);
end;

Что надо сделать чтобы стереть каждую строчку до "\"