Показать сообщение отдельно
  #2  
Старый 03.05.2017, 21:15
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Как не извращался, ситуацию повторить не удалось, папка успевает успешно "улететь" в нужную директорию до копирования в неё новых файлов, но возможно здесь не хватает принудительной установки текущей папки посредством SetCurrentDirectory
Код:
...
ZeroMemory(@fos, SizeOf(fos));
SetCurrentDirectory(PChar(toDir2));
...
а узнать её можно через вызов GetCurrentDirectory
Ответить с цитированием