Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2351687
  • 博文数量: 816
  • 博客积分: 10000
  • 博客等级: 上将
  • 技术积分: 5010
  • 用 户 组: 普通用户
  • 注册时间: 2008-12-17 17:57
文章分类

全部博文(816)

文章存档

2011年(1)

2008年(815)

分类:

2008-12-17 18:06:23

void CopyDir(String Path,String Path2)
{
TSearchRec F;
Path=Path+"\\";
Path2=Path2+"\\";

FindFirst((Path+"*.*").c_str(),faAnyFile|faDirectory,F);

do{
  if((F.Attr==faDirectory)&&(F.Name!=".")&&(F.Name!=".."))
   {
    if(!DirectoryExists(Path2+F.Name))
      {
      if(!CreateDir(Path2+F.Name))
        {
        Application->MessageBoxA("文件传送过程中发生错误!请重试","信息",48) ;//异常
        abort();
        }
      }
      CopyDir(Path+F.Name,Path2+F.Name);
   }
   else
   {
    if((F.Name!=".")&&(F.Name!=".."))
       {
        if (!FileExists(Path2+F.Name))
         {
         CopyFile((Path+F.Name).c_str(),(Path2+F.Name).c_str(),true);
         Main->StatusBar1->Panels->Items[1]->Text=(Path+F.Name)+"拷贝入"+(Path2+F.Name);
         Main->StatusBar1->Repaint();
         }
       }
   }
  }
while(FindNext(F)==0);

FindClose(F);
}


--------------------next---------------------

阅读(995) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~