易语言 怎么将一个文件夹里面的所有文件和文件夹添加到列表框，注意文件夹里面的文件夹的文件不用添加

Question

这是我写的代码
.版本 2
.支持库 shell
.支持库 iext

文件夹路径 ＝ 浏览文件夹 (“请选择文件夹”, )
总的表项数 ＝ 超级列表框1.取表项数 ()
.如果 (超级列表框1.取表项数 () ＞ 0)
文件名 ＝ 寻找文件 (文件夹路径 ＋ “\*.*”, )
但是只能添加文件不能添加文件夹到列表框
上面的代码只例举了关键的代码

Answer 1

DLL命令 从列表id取路径_, 整数型, "shell32.dll", "SHGetPathFromIDListA", , ,
参数 结构指针, 整数型, , pIdl
参数 路径, 文本型, 传址, pszPath
DLL命令 浏览文件夹对话框_, 整数型, "shell32.dll", "SHBrowseForFolderA", , ,
参数 浏览文件夹结构, 文件夹信息_
数据类型 文件夹信息_, , , BROWSEINFO
成员 窗口句柄, 整数型, , , hOwner
成员 根目录, 整数型, , , pidlRoot
成员 显示名称, 文本型, , , pszDisplayName
成员 标题, 文本型, , , lpszTitle
成员 标志, 整数型, , , ulFlags
成员 回调函数地址, 整数型, , , lpfn
成员 回调函数参数, 整数型, , , lParam
成员 图像索引, 整数型, , , iImage
列表框也是一样的,换过来不就成了！

Answer 2

.版本 2

.子程序 _按钮1_被单击
.局部变量 目录, 文本型
.局部变量 a, 文本型

目录 ＝ “c:\”
a ＝ 寻找文件 (目录 ＋ “*”, #子目录)

.判断循环首 (a ≠ “”)
.如果真 (a ≠ “.” 且 a ≠ “..”)
列表框1.加入项目 (a, )
.如果真结束
a ＝ 寻找文件 (, #子目录)
.判断循环尾 ()

变量目录就是你要需找的文件夹。
尽快确认答案，有问题追问，谢谢
这里用的是列表框，相信你自己能把它换成超级列表框吧