西西最近在學(xué)Delphi，哈，沒什么基礎(chǔ)，就想著在網(wǎng)上找點現(xiàn)成的代碼，結(jié)果找了好多都調(diào)試不出來，可能是代碼有點老了，或者跟XE2不兼容。
今早晨找高手艾老師請教了，結(jié)果他劈理帕里幾下就弄好了，汗顏�。。。ㄒ幌麓a在Delphi7里可能不兼容，XE2調(diào)試的。）
需要加上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;
哈，以上代碼也是從萬一老師的博客找的。感謝前輩高手萬一老師，學(xué)delphi，這個http://www.cnblogs.com/del 可不能少，萬一老師的博客。也很謝謝艾老濕 哦。
喜歡 
頂
難過
囧
圍觀
無聊
