Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.227.26.100] |
|
Сообщ.
#1
,
|
|
|
Никак чего то не могу вьехать почему перемещает не все файлы.
Есть 1, 2, 3, 4, 5, 6, 7. Перенесло 4, 6, 7. Вроде и конструкция простая: AnsiString sRabFile, sDelFile; TSearchRec tFileInfo; sRabFile = RabDir + "\\*.*"; if(FindFirst(sRabFile, faAnyFile, tFileInfo) == 0) { do { if((tFileInfo.Name != ".") & (tFileInfo.Name != "..") & (tFileInfo.Size != 0)) { sRabFile = RabDir + "\\" + tFileInfo.Name; sDelFile = DelDir + "\\" + tFileInfo.Name; if(MoveFile(sRabFile.c_str(), sDelFile.c_str())) {// Если в DelDir есть такой же файл, то не перенесет. ShowMessage("Перенесло!"); } } } while(FindNext(tFileInfo) == 0); } Просматривает все файлы - переносит не все... Добавлено Гы, перемещал файлы эксель, несколько раз выходил из билдера ресетом, в результате файлы повисли в процессах - вот они и не перемещались! После убивания процессов все работает, и все перемещается! Всем спасибо за внимание! |