unit2.cpp

来自「本书《C++Builder与WindowsAPI经典范例》附含配套光盘包括132」· C++ 代码 · 共 41 行

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{

for(int i=0; i<FileListBox1->Items->Count; i++)
   {
   //逐一处理被选取的文件
   if( FileListBox1->Selected[i] )
      {
      //取得完整路径&名称
      AnsiString FName = FileListBox1->Directory + "\\" + FileListBox1->Items->Strings[i];
      //取得完整路径&名称
      AnsiString billet = FileListBox2->Directory + "\\" + FileListBox1->Items->Strings[i];
      //复制此文件至新目录下
      ::CopyFile( FName.c_str(), billet.c_str(), false);
      //删除原目录相同文件
      ::DeleteFile(FName.c_str());
      }
   }
//将文件表更新
FileListBox1->Update();
FileListBox2->Update();
}
//---------------------------------------------------------------------------