易语言列表框用浏览文件选择一个目录,读取该目录下所有的文件夹路径并显示在列表框,不是文件.
1个回答
展开全部
.版本 2
.支持库 shell
.程序集 窗口程序集1
.程序集变量 目录名, 文本型
.程序集变量 路径, 文本型
.子程序 __启动窗口_创建完毕
目录名 = 浏览文件夹 (“请选择目录:”, 假)
搜索 (目录名)
.子程序 搜索
.参数 目录, 文本型
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.如果真结束
路径 = 寻找文件 (目录 + “*”, #子目录)
.判断循环首 (路径 ≠ “”)
.如果真 (取文本左边 (路径, 1) ≠ “.”)
列表框1.加入项目 (目录 + 路径, )
搜索 (目录 + 路径)
.如果真结束
路径 = 寻找文件 (, #子目录)
.判断循环尾 ()
.支持库 shell
.程序集 窗口程序集1
.程序集变量 目录名, 文本型
.程序集变量 路径, 文本型
.子程序 __启动窗口_创建完毕
目录名 = 浏览文件夹 (“请选择目录:”, 假)
搜索 (目录名)
.子程序 搜索
.参数 目录, 文本型
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.如果真结束
路径 = 寻找文件 (目录 + “*”, #子目录)
.判断循环首 (路径 ≠ “”)
.如果真 (取文本左边 (路径, 1) ≠ “.”)
列表框1.加入项目 (目录 + 路径, )
搜索 (目录 + 路径)
.如果真结束
路径 = 寻找文件 (, #子目录)
.判断循环尾 ()
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询