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

发布时间：2009-06-02 来源：Delphi 点击：

小中大

字号：

手机查看

【www.quanqiunao.cn--Delphi】

西西最近在学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;