精易模块优化

外星星人

不错不错！

我是个帅哥

谢谢分享

汉族

  

子程序名	返回值类型	公开	备 注
枚举目录文件回调
参数名	类 型	参考	可空	数组	备 注
文件目录	文本型				必须加\结尾
回调	子程序指针				直接回调显示文本

变量名	类 型	静态	数组	备 注
目录名	文本型
完整路径	文本型
i	整数型

目录名 ＝ 寻找文件 (文件目录 ＋ “*.*”, #只读文件 ＋ #隐藏文件 ＋ #系统文件 ＋ #子目录 ＋ #存档文件 )
判断循环首 (目录名 ≠ “”)
如果真 (目录名 ≠ “.” 且 目录名 ≠ “..”)
完整路径 ＝ 文件目录 ＋ 目录名
如果 (GetFileAttributes (完整路径) ＝ 16)  ' //为文件夹  取文件类型（）   一样的
枚举目录文件回调 (完整路径 ＋ “\”)  ' //递归
调用子程序 (回调, , , 完整路径)
调试输出 (完整路径)

目录名 ＝ 寻找文件 (, #只读文件 ＋ #隐藏文件 ＋ #系统文件 ＋ #子目录 ＋ #存档文件 )
判断循环尾 ()

.版本 2<br /> <br /> .子程序 枚举目录文件回调<br /> .参数 文件目录, 文本型, , 必须加\结尾<br /> .参数 回调, 子程序指针, 可空, 直接回调显示文本<br /> .局部变量 目录名, 文本型<br /> .局部变量 完整路径, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 目录名 ＝ 寻找文件 (文件目录 ＋ “*.*”, #只读文件 ＋ #隐藏文件 ＋ #系统文件 ＋ #子目录 ＋ #存档文件)<br /> .判断循环首 (目录名 ≠ “”)<br />     .如果真 (目录名 ≠ “.” 且 目录名 ≠ “..”)<br />         完整路径 ＝ 文件目录 ＋ 目录名<br />         .如果 (GetFileAttributes (完整路径) ＝ 16)  ' //为文件夹  取文件类型（）   一样的<br />             枚举目录文件回调 (完整路径 ＋ “\”)  ' //递归<br />         .否则<br />             调用子程序 (回调, , , 完整路径)<br />             调试输出 (完整路径)<br /> <br />         .如果结束<br /> <br />     .如果真结束<br />     目录名 ＝ 寻找文件 (, #只读文件 ＋ #隐藏文件 ＋ #系统文件 ＋ #子目录 ＋ #存档文件)<br /> .判断循环尾 ()

汉族

速度 还有些慢因为分开执行 子目录的 要同时执行 只需要判断 文件类型=子目录 即可

灵海雪缘

不错不错！