2008年11月24日
遍历文件夹及子文件夹
摘要： {-------------------------------------------------------------------------------过程名: MakeFileList 遍历文件夹及子文件夹作者: SWGWEB日期: 2007.11.25参数: Path,FileExt:string 1.需要遍历的目录 2.要遍历的文件扩展名返回值: TStringList Eg：ListBox1.Items:= MakeFileList( 'E:/极品飞车','.exe') ; ListBox1.Items:= MakeFileList( ' 阅读全文
posted @ 2008-11-24 16:56 delphi中间件 阅读(259) 评论(0) 推荐(0)