2024年3月21日发(作者：)

[delphi函数] 一个遍历所有文件夹的函数2010-03-12 15:13

遍历一个文件夹中的所有文件，有时候非常的有用，比如结合excel操作，就可

以完成对报表的数据的合成和整理。

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,

Forms,

Dialogs,StrUtils, StdCtrls;

type

TForm1 = class(TForm)

lst1: TListBox;

btn1: TButton;

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{--------------------------------------------------------------------

-----------

过程名: MakeFileList 遍历文件夹及子文件夹

作者: SWGWEB

日期: 2007.11.25

参数: Path,FileExt:string 1.需要遍历的目录 2.要遍历的文件扩展

名

返回值: TStringList

Eg：:= MakeFileList( 'E:极品飞车','.exe') ;

:= MakeFileList( 'E:极品飞车','.*') ;

---------------------------------------------------------------------

----------}

function MakeFileList(Path,FileExt:string):TStringList ;

var

sch:TSearchrec;

begin

Result:=;

if rightStr(trim(Path), 1) <> '' then