首页 游戏 软件 排行 智能

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

来源: 西西整理 日期:2012/9/25 8:35:44

西西最近在学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 可不能少,万一老师的博客。也很谢谢艾老湿 哦。

玩家留言 跟帖评论
查看更多评论
相关文章
猜你喜欢
同类下载