请问如何备份一个文件夹？在线等待.......(100分)

我想将一个文件夹中的所有文件备份到另一个文件夹中去，我该怎么办？请大家帮忙！！

先用findfirst、findnext、findclose列举该目录下所有的文件和目录，
如果是文件则filecopy，如果是目录则继续递推

写一个批处理，非常的简单和实用。
如果要压缩备份，就用 WinRar，也是用批处理来调用，实用的不得了。

uses ShellAPI, FileCtrl;
{$R *.DFM}

function GetDirectory: String;
begin
if not SelectDirectory(Result, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
Result := EmptyStr;
end;

procedure CopyDirectoryTree(AHandle: THandle; const AFromDirectory, AToDirectory: String);
var
SHFileOpStruct: TSHFileOpStruct;
FromDir: PChar;
ToDir: PChar;
begin

GetMem(FromDir, Length(AFromDirectory)+2);
try
GetMem(ToDir, Length(AToDirectory)+2);
try

FillChar(FromDir^, Length(AFromDirectory)+2, 0);
FillChar(ToDir^, Length(AToDirectory)+2, 0);

StrCopy(FromDir, PChar(AFromDirectory));
StrCopy(ToDir, PChar(AToDirectory));

with SHFileOpStruct do
begin
Wnd := AHandle; // Assign the window handle
wFunc := FO_COPY; // Specify a file copy
pFrom := FromDir;
pTo := ToDir;
fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
if SHFileOperation(SHFileOpStruct) <> 0 then
RaiseLastWin32Error;
end;
finally
FreeMem(ToDir, Length(AToDirectory)+2);
end;
finally
FreeMem(FromDir, Length(AFromDirectory)+2);
end;
end;

procedure ToRecycle(AHandle: THandle; const ADirName: String);
var
SHFileOpStruct: TSHFileOpStruct;
DirName: PChar;
BufferSize: Cardinal;
begin
BufferSize := Length(ADirName) +1 +1;
GetMem(DirName, BufferSize);
try
FillChar(DirName^, BufferSize, 0);
StrCopy(DirName, PChar(ADirName));

with SHFileOpStruct do
begin
Wnd := AHandle;
wFunc := FO_DELETE;
pFrom := DirName;
pTo := nil;
fFlags := FOF_ALLOWUNDO;

fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;

if SHFileOperation(SHFileOpStruct) <> 0 then
RaiseLastWin32Error;
finally
FreeMem(DirName, BufferSize);
end;
end;

procedure TMainForm.spbtnGetFromDirClick(Sender: TObject);
begin
edtFromDir.Text := GetDirectory;
end;

procedure TMainForm.spbtnGetToDirClick(Sender: TObject);
begin
edtToDir.Text := GetDirectory;
end;

procedure TMainForm.btnCopyDirectoryClick(Sender: TObject);
begin
CopyDirectoryTree(Handle, edtFromDir.Text, edtToDir.Text);
end;

procedure TMainForm.spbtnRecycleBinClick(Sender: TObject);
begin
edtRecycleDir.Text := GetDirectory;
end;

procedure TMainForm.btnRecycleDirClick(Sender: TObject);
begin
ToRecycle(0, edtRecycleDir.Text);
end;

procedure TMainForm.btnCloseClick(Sender: TObject);
begin
Close;
end;

end.

呵呵~再给你贴一个采用NT服务来备份目录的代码。
运用Delphi编写Windows NT中服务程序
湖北省荆州市
胡佩敏
---- Windows NT服务程序不同于一般的运行程序，它不需要NT登录进去，只需要开机进入
NT系统便可以运行，一般用于系统服务方面的应用，学会编写NT服务程序对网络管理人员而
言是非常重要的，Delphi4.0作为一种高效、快速、强大的开发语言，为开发NT服务程序提
供了非常便捷的方法，加上其可视化界面以及与数据库的完美结合，使我们开发与数据库有
关的NT服务程序变得非常简单，下面以编写一个NT定期备份程序为例，介绍如何运用Delphi
编写Windows NT的服务程序。

---- 打开Delphi编辑器，选择菜单中的File|New，在New Item中选择Service Application
项，Delphi便自动为你建立一个基于TServiceApplication的新工程，TserviceApplication
是一个封装NT服务程序的类，它包含一个Tservice1对象以及服务程序的装卸、注册、取消方
法。

---- 将Tservice1对象的属性做下列更改：

DisplayName与Name改为：DataBackup，
ServiceStartName属性改为系统管理员
用户(如DOMAIN/Administrator)和Password则输入用户密码

---- 这样，服务程序运行时将自己以该用户的权限操作NT。

---- 这样，一个NT服务程序编写已经完成，在Delphi编辑器中选择菜单Run|Parameters，
在Parameters中输入/install，程序编译运行后，一个名为DataBackup的NT服务程序已经
安装好，你可以双击控制面板中的服务项目，将会看到此服务程序，只是此服务程序没有
任何东西而已；在Delphi编辑器中选择菜单Run|Parameters，在Parameters中输入
/uninstall，程序编译运行后，系统将会将此服务程序卸掉。

---- 服务程序是通过控制一个线程的生成、暂停、继续、停止来达到服务目的的，因此
我们必须加入一个Tsession对象来编写文件自动备份代码，在Delphi编辑器中选择菜单中
的File|New，在New Item中选择Thread Object项，Delphi会提示你为该Tsession对象输
入一个名称(输入DataCopy),Delphi便生成了一个基于Tsession的DataCopy对象，并提供了
一个Execute过程供重载，我们要Execute过程中输入以下程序：

var
Hour, Min, Sec, MSec: Word;
TimeStamp,DirectoryEdit1,DirectoryEdit2:String;
SearchRec: TSearchRec;
Source,Temp,Destchar;
F,F1:THandle;
FF,FF1:WIN32_FIND_DATA;
Begin
{每次文件备份执行时间}
TimeStamp:='12:00';
{文件备份源目录}
DirectoryEdit1:='C:/temp';
{文件备份目录}
DirectoryEdit2:='C:/temp1';
while True do
begin
DecodeTime(Time,Hour, Min, Sec, MSec);
IF Trim(TimeStamp)=Format
('%-2.2d:%-2.2d',[Hour,Min]) then
begin
GetMem(Source,250);
GetMem(Dest,250);
GetMem(Temp,250);

StrPcopy(Dest,DirectoryEdit2+'/
'+FormatDateTime('YYYYMMDD',Date));
CreateDirectory(Dest,nil);
IFFindFirst(DirectoryEdit1+'/*.*',faAnyFile,
SearchRec)=0 then
begin
repeat
StrPcopy(Source,DirectoryEdit1+'/'+SearchRec.Name);

StrPcopy(Dest,DirectoryEdit2+'/'
+FormatDateTime('YYYYMMDD',Date)+'/'+SearchRec.Name);
copyfile(Source,Dest,False);
until FindNext(SearchRec)< >0;
end;
SysUtils.FindClose(SearchRec);
FindClose(F);
FreeMem(Source,250);
FreeMem(Dest,250);
FreeMem(Temp,250);
end;
sleep(60000);
end;

end;

---- 此线程执行时每隔一分钟将检查一次时间，看是否到了备份时间，如果是则将
DirectoryEdit1中的所有文件拷到DirectoryEdit2目录中去。
---- 现在编写服务控制DataCopy线程的代码，在TdataBackup对象中的OnStart、OnStop、
OnPause、OnContinue事件中分别输入如下代码：

procedure TDataBackup.DataBackupStart
(Sender: TService;
var Started: Boolean);
begin
DataThread:= TDataCopy.Create(False);
Started := True;
end;

procedure TDataBackup.DataBackupStop
(Sender: TService;
var Stopped: Boolean);
begin
DataThread.Terminate;
Stopped := True;
end;

procedure TDataBackup.DataBackupPause
(Sender: TService;
var Paused: Boolean);
begin
DataThread.Suspend;
Paused := True;
end;

procedure TDataBackup.DataBackupContinue
(Sender: TService;
var Continued: Boolean);
begin
DataThread.Resume;
Continued := True;
end;

---- 这样一个文件自动备份程序已经完成，编译好后，加上/install参数执行程序，系统
会将此服务程序安装，由于服务程序中StartType属性为stAuto，NT每次启动时，此程序自
动执行，你可以在控制面板中的服务项目来启动、暂停、恢复、停止它，也可以加上
/uninstall参数执行程序来卸掉它。通过上述例子我们可以看到，用Delphi编写NT服务器
程序十分方便，而且你也可以在Tservice对象上加许多非可视化控件来与数据库关联，实
现很多复杂的功能。