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

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

.版本 2

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

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

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

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