MoveFile

Вторник, 23 Марта 2021 г. 11:07 + в цитатник

Fan_Tik: Никак чего то не могу вьехать почему перемещает не все файлы.
Есть 1, 2, 3, 4, 5, 6, 7.
Перенесло 4, 6, 7.
Вроде и конструкция простая:

AnsiString sRabFile, sDelFile;

TSearchRec tFileInfo;

sRabFile = RabDir + "\*.*";

if(FindFirst(sRabFile, faAnyFile, tFileInfo) == 0)

{

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);

}

Просматривает все файлы - переносит не все...

Добавлено 23.03.21, 08:34
Гы, перемещал файлы эксель, несколько раз выходил из билдера ресетом, в результате файлы повисли в процессах - вот они и не перемещались! После убивания процессов все работает, и все перемещается! Всем спасибо за внимание!

https://forum.sources.ru/index.php?showtopic=421277&view=findpost&p=3845645