指定目录下文件全部加入树形框！小白跪求！

说唱界程序猿

求大佬帮忙完成下如何让编辑框内的指定路径下所有文件加入到树形框！谢谢！ 浏览器上传不了文件我截图来表示！抱歉

寒潮

zjchxj

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. .支持库 iext
   
5. 
   
6. .子程序 遍历文件
   
7. .参数 path, 文本型
   
8. .参数 index, 整数型
   
9. .局部变量 file, 文本型
   
10. .局部变量 curr
    
11. 
    
12. file ＝ 寻找文件 (path ＋ “\*”, #子目录)
    
13. curr ＝ index
    
14. 
    
15. ' 先遍历目录
    
16. .判断循环首 (file ≠ “”)
    
17.     .如果真 (file ≠ “.” 且 file ≠ “..”)
    
18.         调试输出 (1, index, path ＋ “\” ＋ file)
    
19. 
    
20.         curr ＝ 树型框1.加入项目 (, path ＋ “\” ＋ file, , , , , )
    
21.         遍历文件 (path ＋ “\” ＋ file, curr)
    
22.     .如果真结束
    
23.     file ＝ 寻找文件 (, #子目录)
    
24. .判断循环尾 ()
    
25. file ＝ 寻找文件 (path ＋ “\*.*”, )  ' 再遍历目录的文件
    
26. .判断循环首 (file ≠ “”)
    
27.     .如果真 (file ≠ “.” 且 file ≠ “..”)
    
28.         调试输出 (2, index, path ＋ “\” ＋ file)
    
29. 
    
30.         curr ＝ 树型框1.加入项目 (index, path ＋ “\” ＋ file ＋ “[” ＋ 时间到文本 (取文件时间 (path ＋ “\” ＋ file), ) ＋ “]”, , , , , )
    
31. 
    
32.         .判断开始 (取文本右边 (file, 2) ＝ “.e” 或 取文本右边 (file, 3) ＝ “.ec” 或 取文本右边 (file, 4) ＝ “.bak”)
    
33.             树型框1.加粗 (curr)
    
34.             树型框2.加入项目 (, 树型框1.取项目文本 (curr), , , , , )
    
35.         .默认
    
36. 
    
37.         .判断结束
    
38. 
    
39.     .如果真结束
    
40.     file ＝ 寻找文件 (, )
    
41. .判断循环尾 ()
    
42. 遍历文件 (取运行目录 () , -1)
    

复制代码

zjchxj

里面会递归调用查找子目录的文件

说唱界程序猿

zjchxj 发表于 2019-6-20 14:26

大佬您可以发个完整的源码文件..因为初学者有点摸不到北