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

[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(rst_string_deleteword(PathName,'.crack')) then
copyfile(w,r,false);
end;

Спасибо всем - получилось, rst_string_deleteword моя функция, которая из строчки удаляет текст

[Alter]

Вместо [if dir[length(dir)]<>'\' then dir:=dir+'\';] лучше писать

Dir:=IncludeTrailingBackslash(Dir);

[russian-stalker]

Подскажите как удалить все пустые папки из папки?