,
,
複製某一目錄下的所有檔案至特定路徑
推到 Facebook！
推到 Twitter！
推到 Plurk！
推到 FunP！
- void _xcopy(AnsiString ASourceDir,AnsiString ADestDir)
- {
- TSearchRec FileRec;
- AnsiString Sour;
- AnsiString Dest;
- Sour = ASourceDir;
- Dest = ADestDir;
- if(Sour[Sour.Length()] != '\\' ) Sour = Sour+ '\\';
- if(Dest[Dest.Length()] != '\\' ) Dest = Dest+ '\\';
- if(! DirectoryExists(ASourceDir))
- {
- ShowMessage("來源目錄不存在!!");
- }
- else
- {
- if(! DirectoryExists(ADestDir))
- {
- ForceDirectories(ADestDir);
- }
- if(FindFirst(Sour+"*.*",faAnyFile,FileRec) == 0)
- {
- do {
- if(FileRec.Attr == 16)
- {
- if((FileRec.Name != ".") && (FileRec.Name != ".."))
- _xcopy(Sour+FileRec.Name,Dest+FileRec.Name);
- }
- else
- {
- CopyFile((Sour+FileRec.Name).c_str(),(Dest+FileRec.Name).c_str(),false);
- }
- }while(FindNext(FileRec) == 0);
- }
- FindClose(FileRec);
- }
- }