Вопрос: Как копировать файлы?

Ответ :

code:
--------------------------------------------------------------------------------

BOOL CopyFile(
    LPCTSTR lpExistingFileName, // указатель на имя существующего файла
    LPCTSTR lpNewFileName,      // указатель на имя файла куда копируешь
    BOOL bFailIfExists  // флаг для случая если файл такой файл существует
// если TRUE, и файл существует, тогда ничего, а если FALSE - 
// перезапишет в любом случае.                 
   );

--------------------------------------------------------------------------------

или так 

code:
--------------------------------------------------------------------------------

 
int MoveFiles( AnsiString slSourceDir, AnsiString slTargetDir, bool toCopy = true )
{
    SHFILEOPSTRUCT sh;
    sh.fFlags = FOF_NOCONFIRMATION | FOF_SILENT | FOF_FILESONLY;
    sh.wFunc =  toCopy ? FO_COPY : FO_MOVE;
    sh.pFrom = slSourceDir.c_str();
    sh.pTo = slTargetDir.c_str();
    sh.hNameMappings = NULL;
    sh.lpszProgressTitle = NULL;
    return SHFileOperation ( &sh );
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 //copy all from program files
    if(!MoveFiles("c:\\program files\\*.*", "c:\\temp"))
        ShowMessage("Ok");
    else
        ShowMessage("No");
  //move only *.ini
    if(!MoveFiles("c:\\program files\\*.ini", "c:\\temp", false))
        ShowMessage("Ok");
    else
        ShowMessage("No");
}
--------------------------------------------------------------------------------