Увы, но почему то не работает, я по-разному пробывал. 1 раз даже что то копировало, но только 1 файл, а не все. Несмотря на это, в мемо1 все файлы исправно указываются. Вот код:
| Код | //--------------------------------------------------------------------------- void __fastcall TForm1::Button5Click(TObject *Sender) {
try { int error_code = FindFirst("C:\\folder1\\*.*", faAnyFile, search_rec); while ( 0 == error_code ) { Memo1->Lines->Add(search_rec.Name); MoveFile(search_rec.Name.c_str(), ("c:\\folder1\\Subfolder1\\" + search_rec.Name).c_str()); error_code = FindNext(search_rec); } } __finally { FindClose(search_rec); }
} //---------------------------------------------------------------------------
|
|