高分问一下 delphi如何新建、复制或者文件夹？

[pgz_007]

1、如何判断目标文件夹里面是否有某名字（比如新建文件夹1）的文件夹？
if 有此文件夹（新建文件夹1） then exit
else 没有 then 新建此名字的文件夹

2、我用函数WinExec('xcopy c:\test\*.txt d:\temp\', SW_HIDE)批量复制文件的时候，如何判断目标文件夹里是否有同名字的文件？我希望有的话就替换。

[火龙岛主]

1.

uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not DirectoryExists('c:\temp') then
    if not CreateDir('C:\temp') then
    raise Exception.Create('Cannot create c:\temp');
end;

2.WinExec('xcopy c:\test\*.txt d:\temp\ -y', SW_HIDE)

[gyk120]

[Quote=引用 1 楼 SmallHand 的回复:]
1.

Delphi(Pascal) codeuses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirectoryExists('c:\temp') then
if not CreateDir('C:\temp') then
raise Exception.Create('Cannot create c:\temp');
end;



2.WinExec('xcopy c:\test\*.txt d:\temp\ -y', SW_HIDE)
[/Quote]

[手指风]

多找找帮助,帮助上都有这些函数的。