Не работает команда

← →
patrick1968 © (2015-03-16 10:40) [0]

Добрый день.
Проблема в следующем
Выполняю из программы обычное копирование файла
if WinExec( PChar("XCOPY " + InPath + "gz_pol.dbf " + ExtractFilePath(ParamStr(0)) + "*.* /Y"), SW_RESTORE) < 32
then begin
WriteLog(DateTimeToStr(now) + " Ошибка.");
Exit;
Close;
end;

Получается, что на ошибку не выходит (как-бы всё норм.), но на самом деле файл не копируется, переменная InPath - сетевая папка. может проблема тут? Заранее благодарю за ответ.
Переменная

← →
Ega23 © (2015-03-16 10:49) [1]

Exit; Close;

"Меня терзают смутные сомнения" (с)

← →
Patrick1968 © (2015-03-16 10:56) [2]

Да, это обрывки старого модуля, она в эту ветку вообще не попадает.

← →
sniknik © (2015-03-16 13:02) [3]

> что на ошибку не выходит (как-бы всё норм.)
не совсем, WinExec нормально выполнилось, но не факт что XCOPY без ошибок.

> Да, это обрывки старого модуля, она в эту ветку вообще не попадает.
а пути это обрывки путей из другой программы? с пробелами и т.д. внутри?

будь добр приводи как есть, + со значениями, а не "приблизительно вот так, все что тут не так на самом деле правильно, но вам не нужно...", это же не экстрасенсорное лечение по фотографии близнеца...

Добавь и запиши команду в лог, выполни ее в терминале
WriteLog(PChar("XCOPY " + InPath + "gz_pol.dbf " + ExtractFilePath(ParamStr(0)) + "*.* /Y");

1. Значения всех переменных в студию.
2. Зачем использовать стороннее приложение XCOPY?

Не работает команда Найти похожие ветки