Question

delphi filelistbox 遍历大文件夹 子文件夹

要怎样使用 FILELISTBOX 里面的 目录 设定 假如 我在EDIT.TEXT 输入 C: 就出现 C: 里面所有的资料夹里面的TXT档案 要怎设定呢? 谁可交一下 ...
我不想要 指定的 我要 非指定的 要怎麼设定呢

Answer 1

用TDirectoryListBox和档枯TFileListBox解慧慎决你的问题：

DirectoryListBox1.Directory := '前蠢敬c:';
DirectoryListBox1.FileList := FileListBox1;
FileListBox1.Mask := '*.txt';

Answer 2

设置 FILELISTBOX 的　mask属性为：　*.txt

追问

设置了阿= =

只是 filestbox 都要设定指定资料夹欸

要怎样用 c:\ 里面所有资料夹

我要打到没有子目录的时候 他才会出现txt党

假如c:\ 就不会出现= =

追答

我要打到没有子目录的时候 他才会出现txt党 这句话是什么意思？要达到什么效果？

追问

我要达到的就是
假设
procedure TForm2.Edit1Change(Sender: TObject);
begin
if DirectoryExists(Edit1.Text) then
FileListBox1.Directory := Edit1.Text;
end;
假设c:里面 有 3个资料夹 名称为 x y z 然後 x 里面有 z b 资料夹
我在edit.text打上 c:
FileListBox1的内容就显示
c:\x\z\里面的所有txt档
c:\x\b\里面的所有txt档
c:\y\里面的所有txt档
c:\z\里面的所有txt档

这样子知道吗

追答

FileListBox无法完成这个功能，你只能扩展这个类，或者干脆用ListBox代替，然后自己写代码。遍历文件夹与子文件夹，然后将这些路径下的txt文件写入listBox中。

追问

喔 ... 知道了= =