.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
列表框1.清空 ()
递归寻找 (“E:\”)
.子程序 递归寻找, , , 递归样式
.参数 目录, 文本型
.局部变量 文件名, 文本型
处理事件 ()
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, )
.判断循环首 (文件名 ≠ “”)
列表框1.加入项目 (目录 ＋ 文件名, )
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
递归寻找 (目录 ＋ 文件名)
.如果真结束
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
去掉第一个循环试一下,
楼主是想做一个遍历文件夹目录下所有文件和文件夹的东西么？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024