Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

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

← →
>|<   (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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.187 c