【结贴】取某目录下的子目录问题

aboy

我这里还要取目录下的子目录，怎么取？ 有类似的逻辑可以实现不？

aboy

给个取子目录的 方法呀？

SMP

那个searchParam有很多参数，上面只是一个简单的例子，声明一个这样类型的变量，用代码自动提示就看见了！
lSearchParam := SearchFileParam('*' + AValue + '.Proc', '', '', '', False, True);   
这里的最后一个True就表示，搜索子目录！

aboy

我先试下，等下反馈

aboy

procedure TCT1.Button3Click(Sender: TObject);
var
  sr: Tstrings;
  i:integer;
begin
  Sr := TStringList.Create;
  FileSys.FileSystem.SearchFile('File:\D:\11\', FileSys.SearchFileParam('*.*','','','', False,true), sr);
  for i:=0 to Sr.Count-1 do
     ListBox1.Items.Add(sr);
  sr.Free;
end;

怎么读不到子目录呀？

aboy

测试反馈：
上面的方法：只是取文件的，
我现在想取目录下的所有子目录 有什么好方法吗？

aboy

等待中。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

zfang

路过。。。。
楼主，实在不行就考虑 用delphi中实现然后以第三方控件的形式引入平台。

aboy

如果没其他的好方法，本贴就结吧！ 谢谢，各位老大。