Нужно переместить кучу файлов Код (Text): MoveFile перемещает по одному, как упростить код, как пользоваться масками (*.*) в билдере ???
Код (Text): SHFILEOPSTRUCT shfos = {0}; shfos.hwnd = NULL; shfos.wFunc = FO_MOVE; shfos.pFrom = "C:\\Program Files\\DrWeb\0\0"; shfos.pTo = "C:\\Program Files\\DrWeb\\Bases\0\0"; shfos.fFlags = FOF_NOCONFIRMATION | FOF_SILENT; // shfos.fAnyOperationsAborted = FALSE; // shfos.hNameMappings = NULL; shfos.hwnd = NULL; SHFileOperation (&shfos); не копирует вообще ничего =(( да и можно ли здесь задать маску ???
Всё работает =))) Если кому интересно: Код (Text): TSearchRec sr; if (FindFirst("C:\\Program Files\\DrWeb\\drw444*.vdb", faAnyFile | faDirectory, sr) == 0) { CopyFile(AnsiString(("C:\\Program Files\\DrWeb\\")+sr.Name).c_str(),AnsiString(("C:\\Program Files\\DrWeb\\Bases\\")+sr.Name).c_str()); while (FindNext(sr) == 0) CopyFile(AnsiString(("C:\\Program Files\\DrWeb\\")+sr.Name).c_str(),AnsiString(("C:\\Program Files\\DrWeb\\Bases\\")+sr.Name).c_str()); } FindClose(sr);