如何实现目录拷贝?

[失落的羊]

如何实现目录拷贝,包括目录下面的子目录和所有文件,有没有代码参考?

void Copy(AnsiString a,AnsiString b)
{

}

a :源目录
b:目的目录

将a目录下所有文件(含子目录)拷贝到 b目录下,如果b目录已经存在,提示要不要覆盖,如何实现这样的功能?

[zyyoung]

xcopy .\test\*.* .\a\ /y
批处理好了

[jiangshx]

//下面这段代码修改一下就可以了



#define NO_WIN32_LEAN_AND_MEAN // ＋＋＋
#include <vcl.h>

#pragma hdrstop
#include "Unit1.h"
#include "shlobj.h" // ＋＋＋
。。。
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ITEMIDLIST *pidl;
char soupath[MAX_PATH],tarpath[MAX_PATH];
memset(soupath,0,MAX_PATH);
SHGetSpecialFolderLocation(Application->Handle, CSIDL_FAVORITES, &pidl);
SHGetPathFromIDList(pidl,soupath);
ShowMessage("IE收藏夹路径"+soupath);
memset(tarpath,0,MAX_PATH);
strcpy(tarpath,DirectoryListBox1->Directory.c_str());
ShowMessage("目标文件夹路径："+DirectoryListBox1->Directory);
ShowMessage("目标文件夹名称："+DirectoryListBox1->Items->Strings[DirectoryListBox1->ItemIndex]+" -这个有点不太准");


SHFILEOPSTRUCT sfo;
sfo.hwnd = NULL;
sfo.wFunc = FO_COPY;
sfo.pFrom=soupath;
sfo.pTo=tarpath;
sfo.fFlags =FOF_NOCONFIRMATION|FOF_NOCONFIRMMKDIR;
int hr=SHFileOperation(&sfo); //复制函数 - 使用这个函数时,soupath和 tarpath,都必须确定是以两个'\0'结尾，否则容易出错
if(hr==0){
ShowMessage("复制成功");
}
}

[编译失败]

递归函数

[wood542344]

兄弟自己写吧。提示一下。第一递归，第二，用FindFirst,FindNext,FindClose.
这个应该不是很难的。

[yangyaoxing]

BOOL __fastcall TForm1::copyDir(AnsiString source , AnsiString Destination)

{ TSearchRec sr;
AnsiString strDir;
AnsiString strFile;
AnsiString desFile;
int Attr = 0;
Attr|=faAnyFile;
int i = 1024;
if(Destination[Destination.Length()] != '\\')
{
Destination = Destination + "\\";
MkDir(Destination);
}
if(source[source.Length()] != '\\')
source = source + "\\";
if(FindFirst(source+"\\*.*",Attr,sr)==0)
{
do
{
if(sr.Name == "." || sr.Name == "..")
{

continue;
}
if(sr.Attr == faDirectory)

{
MkDir((Destination + sr.Name));
copyDir(source + sr.Name , Destination + sr.Name);
}

else
{
strFile=source+sr.Name;
desFile = Destination + sr.Name;
::CopyFile(strFile.c_str() , desFile.c_str(),true);
}
}while(FindNext(sr)== 0);

FindClose(sr);
}
return TRUE;

}