| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

>|< ©   (2012-03-01 19:42:00) 

Коллеги!
Подскажите, в чем ошибка данного кода:

             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:46:00) [1]

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

---

>|<   (2012-03-01 20:38:00) [2]

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

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

---

sniknik   (2012-03-01 20:15:00) [3]

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

---

Германн   (2012-03-01 20:09:00) [4]

>  ExtractFilePath(Filename) + ' \scanned\'

---

Наверх