如何拷贝某种类型文件(60分)

在某一个目录下，有若干子目录，目录名称不固定，想在这些子目录中找
出同一类型文件如.txt集中拷贝到另一目录下，请各位帮忙

象DOS下拷贝命令
如copy e:/test/ps/*.ps e:/temp
但子目录名预先不知道，文件类型知道，急！

uses ShellApi;

function CopyFile(SourceName, TargetName: string): Boolean;
var
F: TShFileOpStruct;
begin
F.wnd := Handle;
F.wFunc := FO_COPY; {操作方式}
F.pFrom := PChar(SourceName + #0#0);
F.pTo := PChar(TargetName + #0#0);
F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
result := ShFileOperation(F) = 0;
end;

CopyFile('e:/test/ps/*.ps','e:/temp');

谢谢有楼上，
代码稍作修改可以实现copy 命令

如何能知道在一个父目录下各子目录名，用程序自动读，再次谢谢

你说的和拷贝这个无关吧？
如果无关，那么你可以使用findFirst、FindNext来完成设置查找为faDirectory。具体可以参考他们的帮助
里面有例子的。

接受答案了.