加上一句
while j=0 do
begin
if (fs.Name <> '.') and (fs.Name <> '..') then
if((fs.Attr and faDirectory)=faDirectory) then //忘记了,应该加上这一句判断是否是文件夹
getall(fPath + '\'+fs.Name, fname,filelist);
j :=findnext(fs);
end;
我的也贴出吧,最后文件名导入memo
procedure TForm1.Button1Click(Sender: TObject);
var s:tstringlist;
begin
s:=tstringlist.Create;
getall('c:\tmp','*爱*.*',s);
memo1.Lines.Assign(s);
end;
procedure TForm1.GetAll(const fpath,fname: String; filelist: TstringList);
var
i,j:integer;
fs: TsearchRec;
begin
i:= findfirst(fpath+'\'+fname,faAnyFile-fadirectory,fs);
//先寻找根目录下的文件
while i=0 do
begin
filelist.add(fpath+'\'+fs.name);
i :=findnext(fs);
end;
FindClose(fs);
//再逐个寻找子目录中的文件
j:= findfirst(fpath+'\'+'*.*',fadirectory,fs);
while j=0 do
begin
if (fs.Name <> '.') and (fs.Name <> '..') then
getall(fPath + '\'+fs.Name, fname,filelist);
j :=findnext(fs);
end;
end;
var
Form1: TForm1;
TotalFileNumbers:Integer;
SearchFileType:String;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
TotalFileNumbers:=0;
SearchFileType:='*.txt';
end;
function TForm1.CurrentIsValidDir(SearchRec:TSearchRec):integer;
begin
if ((SearchRec.Attr <> 16) and
(SearchRec.Name<>'.') and
(SearchRec.Name<>'..')) then
Result:=0
else if ((SearchRec.Attr = 16) and
(SearchRec.Name<>'.') and
(SearchRec.Name<>'..')) then
Result:=1
else
Result:=2;
end;
Procedure TForm1.RecurSearchFile(CurrentDir:string;SearchFileType:string;SearchResult:TStrings;var Number:integer);
var
i:integer;
Subdir:TStringList;
SearchRec:TsearchRec;
begin
//第一次调用FindFirst和FindNext查找符合要求的文件
if (FindFirst(CurrentDir+SearchFileType, faAnyFile, SearchRec)=0) then
begin
repeat
if CurrentIsValidDir(SearchRec)=0 then
begin
Inc(Number);
Searchresult.Add(CurrentDir+SearchRec.Name);
end;
application.ProcessMessages ;
until (FindNext(SearchRec) <> 0);
end;
FindClose(SearchRec);
//以下是递归部分,查找各子目录。
Subdir:=TStringList.Create;
if (FindFirst(CurrentDir+'*.*', faDirectory, SearchRec)=0) then
begin
repeat
if CurrentIsValidDir(SearchRec)=1 then
begin
Subdir.Add(SearchRec.Name);
end;
application.ProcessMessages ;
until (FindNext(SearchRec) <> 0);
end;
FindClose(SearchRec);
for i:=0 to Subdir.Count-1 do
begin
RecurSearchfile(CurrentDir+Subdir.Strings[i]+'\',SearchFileType,Searchresult,Number);
end;
//资源释放并返回结果。
Subdir.Free;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Case ComboBox1.ItemIndex of
0:SearchFileType:='*.txt';
1:SearchFileType:='*.bmp';
2:SearchFileType:='*.mp3';
3:SearchFileType:='*.*';
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='' then
BitBtn2.Enabled:=False
else
BitBtn2.Enabled:=True;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
SelectDir:string;
begin
if SelectDirectory(SelectDir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
begin
if length(SelectDir) > 3 then
SelectDir:=SelectDir+'\';
Edit1.Text:=SelectDir;
end;
end;
if not DirectoryExists(sour_path) then
begin
AStrings.Clear;
exit;
end;
TmpList:=TStringList.Create;
TmpList.Clear;
if FindFirst(sour_path+sour_file,faAnyfile,FileRec) = 0 then
repeat
if ((FileRec.Attr and faDirectory) = 0) then
begin
TmpList.Add(sour_path+FileRec.Name)
end;
until FindNext(FileRec)<>0;