请教：如何清空文件夹的所有文件？如何复制一文件夹的所有文件到另一文件夹？(50分)

请教：如何清空文件夹的所有文件？如何复制一文件夹的所有文件到另一文件夹？

新手吧!
Shell API啊,BBS里面多的是,找找啊!呵呵!

给你个例子：把文件放到回收站
//uses Shellapi
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
T : TSHFileOpStruct;
P:String;
begin
P:= 'F:/SetUp/ICEFLOW';//目录名
With T do
Begin
Wnd:=handle;
wFunc:=FO_DELETE;
pFrom:=Pchar(P);
pTo:=nil;
fFlags:= FOF_ALLOWUNDO + FOF_NOERRORUI; //FOF_NOCONFIRMATION+
//FOF_ALLOWUNDO 允许恢复
//FOF_NOCONFIRMATION 无须确认
//FOF_NOERRORUI不显示出错信息
hNameMappings:= nil;
lpszProgressTitle:='正在删除文件夹';
fAnyOperationsAborted := False;
End;
SHFileOperation(T);
end;

－－也可以通过遍历文件夹下的文件来实现。