递归代码为什么显示文件数和实际不一样？是易语言的bug...

导出函数

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
文件数量	整数型

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
目标文件夹	文本型

标准输出 (, “请将要遍历文件的文件夹拖动到本控制台：” ＋ #换行符 )
目标文件夹 ＝ 标准输入 ()
遍历目录下文件 (目标文件夹)
标准输出 (, “一共找到了” ＋ 到文本 (文件数量) ＋ “个文件”)
标准输入 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
遍历目录下文件
参数名	类 型	参考	可空	数组	备 注
目标文件夹	文本型				需要完整路径

变量名	类 型	静态	数组	备 注
子文件名	文本型
子文件夹名	文本型

如果真 (取文本右边 (目标文件夹, 1) ≠ “\”)
目标文件夹 ＝ 目标文件夹 ＋ “\”
子文件名 ＝ 寻找文件 (目标文件夹 ＋ “*”, 1 ＋ 2 ＋ 4 ＋ 32)  ' 寻找所有属性的文件
判断循环首 (子文件名 ≠ “”)
文件数量 ＝ 文件数量 ＋ 1
标准输出 (, 目标文件夹 ＋ 子文件名 ＋ #换行符 )
子文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 32)
判断循环尾 ()
子文件夹名 ＝ 寻找文件 (目标文件夹 ＋ “*”, #子目录 )
调试输出 (子文件夹名)
判断循环首 (子文件夹名 ≠ “”)
如果真 (子文件夹名 ≠ “.” 且 子文件夹名 ≠ “..”)
调试输出 (子文件夹名)
遍历目录下文件 (目标文件夹 ＋ 子文件夹名)
子文件夹名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> .程序集变量 文件数量, 整数型<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 目标文件夹, 文本型<br /> <br /> 标准输出 (, “请将要遍历文件的文件夹拖动到本控制台：” ＋ #换行符)<br /> 目标文件夹 ＝ 标准输入 ()<br /> 遍历目录下文件 (目标文件夹)<br /> 标准输出 (, “一共找到了” ＋ 到文本 (文件数量) ＋ “个文件”)<br /> 标准输入 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 遍历目录下文件<br /> .参数 目标文件夹, 文本型, , 需要完整路径<br /> .局部变量 子文件名, 文本型<br /> .局部变量 子文件夹名, 文本型<br /> <br /> .如果真 (取文本右边 (目标文件夹, 1) ≠ “\”)<br />     目标文件夹 ＝ 目标文件夹 ＋ “\”<br /> .如果真结束<br /> 子文件名 ＝ 寻找文件 (目标文件夹 ＋ “*”, 1 ＋ 2 ＋ 4 ＋ 32)  ' 寻找所有属性的文件<br /> .判断循环首 (子文件名 ≠ “”)<br />     文件数量 ＝ 文件数量 ＋ 1<br />     标准输出 (, 目标文件夹 ＋ 子文件名 ＋ #换行符)<br />     子文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 32)<br /> .判断循环尾 ()<br /> 子文件夹名 ＝ 寻找文件 (目标文件夹 ＋ “*”, #子目录)<br /> 调试输出 (子文件夹名)<br /> .判断循环首 (子文件夹名 ≠ “”)<br />     .如果真 (子文件夹名 ≠ “.” 且 子文件夹名 ≠ “..”)<br />         调试输出 (子文件夹名)<br />         遍历目录下文件 (目标文件夹 ＋ 子文件夹名)<br />     .如果真结束<br />     子文件夹名 ＝ 寻找文件 (, #子目录)<br /> .判断循环尾 ()

明靓

用这种非递归的方式,返回的才是正确的,你用递归方式,肯定不准确了.

  

子程序名	返回值类型	公开	备 注
枚举文件Ex	整数型		返回文件数量
参数名	类 型	参考	可空	数组	备 注
目录	文本型
包含子目录	逻辑型
后缀名	文本型				不带点
文件组	文本型

变量名	类 型	静态	数组	备 注
队列	队列
节点	节点
节点1	节点
路径	文本型
文件夹名称	文本型
文件名	文本型
文件数目	整数型
文件路径	文本型
文件数	整数型

如果真 (是否为空 (后缀名))
后缀名 = "*"
节点.加入属性 ("path", 目录)
' //把初始目录加到队列
队列.压入 (节点)
判断循环首 (队列.是否为空 () = 假)
处理事件 ()
' 弹出队列最前一个元素作为目录,对该目录进行文件夹枚举和文件枚举
队列.弹出 (节点1)
节点1.取文本值 ("path", 路径)
路径 = 选择 (取文本右边 (路径, 1) ≠ "\", 路径 + "\", 路径)
如果真 (包含子目录)
文件夹名称 = 寻找文件 (路径 + "*.*", #子目录 )
判断循环首 (文件夹名称 ≠ "")
如果真 (文件夹名称 ≠ "." 且 文件夹名称 ≠ "..")
' 如果在当前目录下找到了文件夹,则把该文件夹压入到队列,等待扫描该文件夹的下一级目录和文件名
节点.修改属性 ("path", 路径 + 文件夹名称)
队列.压入 (节点)
文件夹名称 = 寻找文件 (, #子目录 )
判断循环尾 ()
' 寻找当前目录的所有文件
文件名 = 寻找文件 (路径 + "*." + 后缀名, )
判断循环首 (文件名 ≠ "")
文件数 = 文件数 + 1
文件路径 = 路径 + 文件名
如果真 (是否为空 (文件组) = 假)
加入成员 (文件组, 文件路径)
文件名 = 寻找文件 (, )
判断循环尾 ()
判断循环尾 ()
返回 (文件数)

.版本 2<br /> <br /> .子程序 枚举文件Ex, 整数型, , 返回文件数量<br /> .参数 目录, 文本型<br /> .参数 包含子目录, 逻辑型, 可空<br /> .参数 后缀名, 文本型, 可空, 不带点<br /> .参数 文件组, 文本型, 可空 数组<br /> .局部变量 队列, 队列<br /> .局部变量 节点, 节点<br /> .局部变量 节点1, 节点<br /> .局部变量 路径, 文本型<br /> .局部变量 文件夹名称, 文本型<br /> .局部变量 文件名, 文本型<br /> .局部变量 文件数目, 整数型<br /> .局部变量 文件路径, 文本型<br /> .局部变量 文件数, 整数型<br /> <br /> .如果真 (是否为空 (后缀名))<br />     后缀名 = "*"<br /> .如果真结束<br /> 节点.加入属性 ("path", 目录)<br /> ' //把初始目录加到队列<br /> 队列.压入 (节点)<br /> .判断循环首 (队列.是否为空 () = 假)<br />     处理事件 ()<br />     ' 弹出队列最前一个元素作为目录,对该目录进行文件夹枚举和文件枚举<br />     队列.弹出 (节点1)<br />     节点1.取文本值 ("path", 路径)<br />     路径 = 选择 (取文本右边 (路径, 1) ≠ "\", 路径 + "\", 路径)<br />     .如果真 (包含子目录)<br />         文件夹名称 = 寻找文件 (路径 + "*.*", #子目录)<br />         .判断循环首 (文件夹名称 ≠ "")<br />             .如果真 (文件夹名称 ≠ "." 且 文件夹名称 ≠ "..")<br />                 ' 如果在当前目录下找到了文件夹,则把该文件夹压入到队列,等待扫描该文件夹的下一级目录和文件名<br />                 节点.修改属性 ("path", 路径 + 文件夹名称)<br />                 队列.压入 (节点)<br />             .如果真结束<br />             文件夹名称 = 寻找文件 (, #子目录)<br />         .判断循环尾 ()<br />     .如果真结束<br />     ' 寻找当前目录的所有文件<br />     文件名 = 寻找文件 (路径 + "*." + 后缀名, )<br />     .判断循环首 (文件名 ≠ "")<br />         文件数 = 文件数 + 1<br />         文件路径 = 路径 + 文件名<br />         .如果真 (是否为空 (文件组) = 假)<br />             加入成员 (文件组, 文件路径)<br />         .如果真结束<br />         文件名 = 寻找文件 (, )<br />     .判断循环尾 ()<br /> .判断循环尾 ()<br /> 返回 (文件数)