加载中…易语言递归树形框电脑文件夹
(2013-03-02 10:46:52) | 分类： 易语言 |
.版本 2
.支持库 shell
.支持库 iext
.支持库 iext2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
编辑框1.内容 ＝ 浏览文件夹 (“”, )
树型框1.项目 ＝ { }
超级编辑框1.内容 ＝ “”
子程序_加入树型框 (编辑框1.内容, -1)
信息框 (“收索完毕”, 0, )
.子程序 子程序_加入树型框
.参数 参数_目录, 文本型
.参数 参数_索引, 整数型
.局部变量 局部文件名, 文本型
.局部变量 局部当前位置, 整数型
.如果真 (取文本右边 (参数_目录, 1) ≠ “\”)
.如果真结束
局部文件名 ＝ 寻找文件 (参数_目录 ＋ “*.*”, #子目录)
.判断循环首 (局部文件名 ≠ “”)
.判断循环尾 ()
喜欢
0
赠金笔
前一篇：多工作表汇总自定义
后一篇：模拟有条件的连接字符的自定义函数