Показать сообщение отдельно
  #5  
Старый 04.05.2017, 15:58
Eldar1991 Eldar1991 вне форума
Прохожий
 
Регистрация: 02.03.2015
Сообщения: 21
Версия Delphi: delphi7
Репутация: 10
По умолчанию

Попробовал изменить адресацию и добился.... теперь и вовсе при повторном переносе если в конечной папке такое имя каталога есть он 100% создает в нем еще одну папку. реализовано вот так.
Код:
for i:=0 to memo2.lines.count-1 do
   if (memo2.Text<>'') and (combobox1.Text<>'') then
    begin
    try
      if checkbox8.Checked=false then
        MoveDir(combobox1.Text+memo2.Lines[i], ExtractFileDir(Application.ExeName)+'\tails\'+memo2.Lines[i])
      else
      MoveDir(combobox1.Text+memo2.Lines[i], edit3.text+'\tails\'+memo2.Lines[i]);
    except
    end;
может можно как то условие проверки на наличие папки сделать, только что тогда делать если например существующая папка будет обнаружена.
Ответить с цитированием