Ошибка перемещения файла

← →
>|< (2012-03-01 19:42) [0]

Коллеги!
Подскажите, в чем ошибка данного кода:
PathScanned:=ExtractFilePath(FileName) + "scanned\" +ExtractFileName(Filename); if MoveFile(PAnsiChar(FileName), PAnsiChar(PathScanned)) then // DeleteFile(Filename); cdsImagesImagePath.AsString := ExtractFilePath(Filename) + "\scanned\" else ShowMessage("Ошибка! Вот ее код: " + IntToStr(GetLastError));
Выдает код 3 - Неправильные параметры
Все пути существуют, файл тоже.
Заранее благодарен!

← →
Германн © (2012-03-01 20:09) [1]

> ExtractFilePath(Filename) + "\scanned\"

← →
sniknik © (2012-03-01 20:15) [2]

> Все пути существуют
сомневаюсь...
> PathScanned:=ExtractFilePath(FileName) + "scanned\" +ExtractFileName(Filename);
> cdsImagesImagePath.AsString := ExtractFilePath(Filename) + "\scanned\"

← →
>|< (2012-03-01 20:38) [3]

> sniknik © (01.03.12 20:15) [2]

Функция ExtractFilePath(FileName) возращает путь с завершающим символом слэша \. Если поставить еще один в "\scanned\", тогда их там будет два.
Изначально так и было, но ошибка все равно одна и та же

← →
>|< (2012-03-01 20:46) [4]

Разобрался. Всем спасибо!

Ошибка перемещения файла Найти похожие ветки