uses FileCtrl;//不知道要不要加,忘了。procedure SearchFolder(const s:string);
var
SR:TSearchRec;
found:integer;
begin
found:=FindFirst(s+'*.*',faAnyFile,SR);
while found=0 do
begin
if (SR.Attr=faDirectory) and (SR.Name<>'..') and (SR.Name<>'.') theh
SearchFolder(s+SR.Name+'\');
ListBox1.Items.Add(SR.Name);
found:=FindNext(SR):
end;
FindClose(SR):
end;
var
SR:TSearchRec;
found:integer;
begin
found:=FindFirst(s+'*.*',faAnyFile,SR);
while found=0 do
begin
if (SR.Attr=faDirectory) and (SR.Name<>'..') and (SR.Name<>'.') theh
SearchFolder(s+SR.Name+'\');
ListBox1.Items.Add(SR.Name);
found:=FindNext(SR):
end;
FindClose(SR):
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货