西西软件园多重安全检测下载网站、值得信赖的软件下载站!
软件
软件
文章
搜索

首页编程开发Delphi → delphi XE2遍历文件夹下的指定扩展名文件

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

前往专题相关文章发表评论 来源:西西整理时间:2012/9/25 8:35:44字体大小:A-A+

作者:西西点击:1051评论:0次标签: XE2

DBISAM for Delphi XE24.32 免费版
  • 类型:编程辅助大小:9.0M语言:英文 评分:6.6
  • 标签:
立即下载

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

相关评论

阅读本文后您有什么感想? 已有人给出评价!

  • 130 喜欢喜欢
  • 7 顶
  • 5 难过难过
  • 10 囧
  • 1 围观围观
  • 2 无聊无聊

热门评论

最新评论

发表评论 查看所有评论(0)

昵称:
表情: 高兴 可 汗 我不要 害羞 好 下下下 送花 屎 亲亲
字数: 0/500 (您的评论需要经过审核才能显示)