|
5精币
这一篇教程,每次到了递归查找子目录的时候就陷入无限循环..求解...感谢
https://ke.qq.com/webcourse/index.html#course_id=203017&term_id=100240425&taid=1234184622512393&vid=s1417ghzfug
.版本 2
.支持库 iext
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
子程序_文件查找 (编辑框_路径.内容)
.子程序 子程序_文件查找
.参数 参数_查找目录, 文本型
.局部变量 找到的文件名, 文本型
.如果真 (取文本右边 (参数_查找目录, 1) ≠ “\”)
参数_查找目录 = 参数_查找目录 + “\”
.如果真结束
找到的文件名 = 寻找文件 (参数_查找目录 + “*.*”, 1 + 2 + 4 + 16 + 32)
.判断循环首 (找到的文件名 ≠ “”)
.如果真 (找到的文件名 = “.” 或 找到的文件名 = “..”)
找到的文件名 = 寻找文件 (, 1 + 2 + 4 + 16 + 32)
到循环尾 ()
.如果真结束
树型框_文件夹.加入项目 (, 找到的文件名, , , , , )
.如果真 (取文件属性 (参数_查找目录 + “\” + 找到的文件名) = #子目录)
' 子程序_文件查找 (寻找文件 (, 1 + 2 + 4 + 16 + 32))
找到的文件名 = 寻找文件 (, 1 + 2 + 4 + 16 + 32)
到循环尾 ()
.如果真结束
.判断循环尾 ()
|
最佳答案
查看完整内容
有时候教程不是一次性录制完的,他可能有时候刚刚接的地方有差池,你多理解就好了,
|