//--------------------------------------------------------------------------- 複製資料夾
void CopyFolder(AnsiString srcPath, AnsiString aimPath)
{
TSearchRec sr;
if (!DirectoryExists(srcPath)){return ;}
if (!DirectoryExists(aimPath)){ForceDirectories(aimPath);}
if (FindFirst(srcPath + "//*.*", faAnyFile, sr) == 0){
do{
try{
if ((sr.Attr & faDirectory) != 0){
if (sr.Name != "." && sr.Name != ".."){//folder
CopyFolder(srcPath+"//"+sr.Name, aimPath+"//"+sr.Name);}
}else{//file
CopyFile((srcPath + "//" + sr.Name).c_str(),(aimPath + "//" + sr.Name).c_str(),0);}
}catch(...){}
} while (FindNext(sr) == 0);
FindClose(sr);
}
}
//--------------------------------------------------------------------------- 複製資料夾
- 3月 20 週三 201315:47
BCB複製資料夾
文章標籤
全站熱搜
