易语言求指教:目录树选择一个文件目录 然后列表框显示该目录下的所有txt文档 包含子文件夹中的txt

 我来答
匿名用户
2013-09-11
展开全部
.版本 2
.支持库 shell
.支持库 iext

.子程序 _添加文件夹_被选择
.局部变量 文件目录, 文本型

文件目录 = 浏览文件夹 (“请选择MP3目录:”, 假)
.如果真 (文件目录 ≠ “”)
搜寻 (文件目录)
.如果真结束

.子程序 搜寻
.参数 目录, 文本型
.局部变量 文件名, 文本型

处理事件 () ' 给出机会以接收停止按钮事件。
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.如果真结束
文件名 = 寻找文件 (目录 + “*.mp3”, )
.判断循环首 (文件名 ≠ “”)
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 文件名)
超级列表框1.置标题 (索引, 2, 目录 + 文件名)
超级列表框1.置标题 (索引, 1, 到文本 (文件_取大小 (目录 + 文件名)) + “KB”)
文件名 = 寻找文件 (, )
.判断循环尾 ()
文件名 = 寻找文件 (目录 + “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
搜寻 (目录 + 文件名)
.如果真结束
文件名 = 寻找文件 (, #子目录)
.判断循环尾 ()
照着改就可以了
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式