挨踢人

void __fastcall TForm1::btnCopyClick(TObject *Sender)
{
    String filename,source,goal,currdir,goaldir;
    AnsiString msg;
    //抓取目前所選路徑(來源目錄)
    currdir = DirectoryListBox1->Directory;
    //抓取目前所選路徑(目的目錄)
    goaldir = DirectoryListBox2->Directory;

    for(int i = 0 ; i < FileListBox1->Count ; i ++)
    {
        if(FileListBox1->Selected[i])
        {
             
             //要複製的檔案名稱
             filename = FileListBox1->Items->Strings[i];
             //來源路徑及檔名
             source = currdir+"\\"+filename;
             //目的路徑及檔名
             goal   = goaldir+"\\"+filename;
             //判斷目的路徑是否已有相同檔案
             if(FileExists( goal ))
             {
                msg = "<"+filename+">This file is exist.Do you want to overwrite?";                
               //詢問是否Overwrite
               if( ::MessageBox( Handle,msg.c_str(),"Message",MB_YESNO |MB_ICONQUESTION ) == IDYES )
                    CopyFile(source.c_str() ,goal.c_str() ,false);
             }
             else
                CopyFile(source.c_str() ,goal.c_str() ,false);
         }
     }

}