一个简单的文件夹拷贝函数（BCB）

最新推荐文章于 2019-04-12 08:45:02 发布

wellerweldon

最新推荐文章于 2019-04-12 08:45:02 发布

阅读量1.7k

点赞数

本文链接：https://blog.csdn.net/wellerweldon/article/details/1841883

版权

void CopyDirectory( AnsiString Dest, AnsiString Source )
// Dest & Source must be end with '//' and Exist!
{
   TSearchRec TSR;
    if ( ! FindFirst( Source + " *.* " , faAnyFile, TSR ) )
   {
       do
      {
          if ( TSR.Attr & faDirectory )
         {
             if ( TSR.Name != " . " && TSR.Name != " .. " )
            {
               CreateDir( Dest + TSR.Name + " / " );
               CopyDirectory( Dest + TSR.Name + " / " , Source + TSR.Name + " / " );
            }
         }
          else
            CopyFile( (Source + TSR.Name).c_str(), (Dest + TSR.Name).c_str(), false );
      }
       while ( ! FindNext( TSR ) );
      FindClose( TSR );
   }
}