西西最近在学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 可不能少，万一老师的博客。也很谢谢艾老湿 哦。
喜欢 
顶
难过
囧
围观
无聊
