delphi XE2遍历文件夹下的指定扩展名文件

西西最近在学Delphi，哈，没什么基础，就想着在网上找点现成的代码，结果找了好多都调试不出来，可能是代码有点老了，或者跟XE2不兼容。

今早晨找高手艾老师请教了，结果他劈理帕里几下就弄好了，汗颜啊！！（一下代码在Delphi7里可能不兼容，XE2调试的。）

需要加上uses
  Types, IOUtils

procedure TForm1.Button1Click(Sender: TObject);
var
  files: TStringDynArray;
  str: string;
begin
  files := TDirectory.GetFiles('c:\', '*.log', TSearchOption.soAllDirectories);
  Memo1.Clear;
  Memo1.Lines.BeginUpdate;
  for str in files do
  begin
    memo1.Lines.Add(str);
    DeleteFile(str);
    CopyFile(PChar(str), PChar('C:\Users\Administrator\Desktop\新建文件夹 (3)\' + ExtractFileName(str)), False);
  end;
  Memo1.Lines.EndUpdate;
end;

哈，以上代码也是从万一老师的博客找的。感谢前辈高手万一老师，学delphi，这个http://www.cnblogs.com/del 可不能少，万一老师的博客。也很谢谢艾老湿 哦。