精易模块 目录_枚举子目录1 有个地方需要改动。

生命苦短

  

子程序名	返回值类型	公开	备 注
目录_枚举子目录1	整数型		取一个文件夹下级子目录；成功返回子目录数量，失败返回0；通过是否枚举子目录参数，可以枚举所有的子目录
参数名	类 型	参考	可空	数组	备 注
父文件夹路径	文本型				如：D:\Program Files；目录分割符请用\，路径不以\结尾会自动添加
子目录数组	文本型				用来装载返回的子目录路径；
是否带路径	逻辑型				可为空默认为真,假=不带，真=带;
是否继续向下枚举	逻辑型				为空，默认不枚举。

变量名	类 型	静态	数组	备 注
子目录名	文本型
本级子目录列表	文本型		0
目录计数器	整数型
目录总数	整数型
局_目录	文本型

局_目录 ＝ 父文件夹路径
如果真 (取文本右边 (局_目录, 1) ≠ “\”)
局_目录 ＝ 局_目录 ＋ “\”
子目录名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录 )
是否带路径 ＝ 选择 (是否为空 (是否带路径), 真, 是否带路径)
判断循环首 (子目录名 ≠ “”)
如果真 (取文本左边 (子目录名, 1) ≠ “.”)
加入成员 (本级子目录列表, 子目录名)
如果 (是否带路径)
加入成员 (子目录数组, 局_目录 ＋ 子目录名)
加入成员 (子目录数组, 子目录名)

处理事件 ()
子目录名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()
目录总数 ＝ 取数组成员数 (本级子目录列表)
如果真 (是否继续向下枚举)
计次循环首 (取数组成员数 (本级子目录列表), 目录计数器)
如果真 (目录_是否有子目录 (局_目录 ＋ 本级子目录列表 [目录计数器]))
目录总数 ＝ 目录总数 ＋ 目录_枚举子目录1 (局_目录 ＋ 本级子目录列表 [目录计数器], 子目录数组, 是否带路径, 是否继续向下枚举)

计次循环尾 ()
返回 (目录总数)

.版本 2<br /> <br /> .子程序 目录_枚举子目录1, 整数型, 公开, 取一个文件夹下级子目录；成功返回子目录数量，失败返回0；通过是否枚举子目录参数，可以枚举所有的子目录<br /> .参数 父文件夹路径, 文本型, , 如：D:\Program Files；目录分割符请用\，路径不以\结尾会自动添加<br /> .参数 子目录数组, 文本型, 参考 可空 数组, 用来装载返回的子目录路径；<br /> .参数 是否带路径, 逻辑型, 可空, 可为空默认为真,假=不带，真=带;<br /> .参数 是否继续向下枚举, 逻辑型, 可空, 为空，默认不枚举。<br /> .局部变量 子目录名, 文本型<br /> .局部变量 本级子目录列表, 文本型, , "0"<br /> .局部变量 目录计数器, 整数型<br /> .局部变量 目录总数, 整数型<br /> .局部变量 局_目录, 文本型<br /> <br /> 局_目录 ＝ 父文件夹路径<br /> .如果真 (取文本右边 (局_目录, 1) ≠ “\”)<br />     局_目录 ＝ 局_目录 ＋ “\”<br /> .如果真结束<br /> 子目录名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录)<br /> 是否带路径 ＝ 选择 (是否为空 (是否带路径), 真, 是否带路径)<br /> .判断循环首 (子目录名 ≠ “”)<br />     .如果真 (取文本左边 (子目录名, 1) ≠ “.”)<br />         加入成员 (本级子目录列表, 子目录名)<br />         .如果 (是否带路径)<br />             加入成员 (子目录数组, 局_目录 ＋ 子目录名)<br />         .否则<br />             加入成员 (子目录数组, 子目录名)<br />         .如果结束<br /> <br />     .如果真结束<br />     处理事件 ()<br />     子目录名 ＝ 寻找文件 (, #子目录)<br /> .判断循环尾 ()<br /> 目录总数 ＝ 取数组成员数 (本级子目录列表)<br /> .如果真 (是否继续向下枚举)<br />     .计次循环首 (取数组成员数 (本级子目录列表), 目录计数器)<br />         .如果真 (目录_是否有子目录 (局_目录 ＋ 本级子目录列表 [目录计数器]))<br />             目录总数 ＝ 目录总数 ＋ 目录_枚举子目录1 (局_目录 ＋ 本级子目录列表 [目录计数器], 子目录数组, 是否带路径, 是否继续向下枚举)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> 返回 (目录总数)

如果真 (取文本左边 (子目录名, 1) ≠ “.”)
会导致文件夹名称开头有"."如".aaa"这类文件夹被过滤掉。
所以应该改为

  

子程序名	返回值类型	公开	备 注
目录_枚举子目录1	整数型		取一个文件夹下级子目录；成功返回子目录数量，失败返回0；通过是否枚举子目录参数，可以枚举所有的子目录
参数名	类 型	参考	可空	数组	备 注
父文件夹路径	文本型				如：D:\Program Files；目录分割符请用\，路径不以\结尾会自动添加
子目录数组	文本型				用来装载返回的子目录路径；
是否带路径	逻辑型				可为空默认为真,假=不带，真=带;
是否继续向下枚举	逻辑型				为空，默认不枚举。

变量名	类 型	静态	数组	备 注
子目录名	文本型
本级子目录列表	文本型		0
目录计数器	整数型
目录总数	整数型
局_目录	文本型

局_目录 ＝ 父文件夹路径
如果真 (取文本右边 (局_目录, 1) ≠ “\”)
局_目录 ＝ 局_目录 ＋ “\”
子目录名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录 )
是否带路径 ＝ 选择 (是否为空 (是否带路径), 真, 是否带路径)
判断循环首 (子目录名 ≠ “”)
如果真 (子目录名 ≠ “.” 且 子目录名 ≠ “..”)
加入成员 (本级子目录列表, 子目录名)
如果 (是否带路径)
加入成员 (子目录数组, 局_目录 ＋ 子目录名)
加入成员 (子目录数组, 子目录名)

处理事件 ()
子目录名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()
目录总数 ＝ 取数组成员数 (本级子目录列表)
如果真 (是否继续向下枚举)
计次循环首 (取数组成员数 (本级子目录列表), 目录计数器)
如果真 (目录_是否有子目录 (局_目录 ＋ 本级子目录列表 [目录计数器]))
目录总数 ＝ 目录总数 ＋ 目录_枚举子目录1 (局_目录 ＋ 本级子目录列表 [目录计数器], 子目录数组, 是否带路径, 是否继续向下枚举)

计次循环尾 ()
返回 (目录总数)

.版本 2<br /> <br /> .子程序 目录_枚举子目录1, 整数型, 公开, 取一个文件夹下级子目录；成功返回子目录数量，失败返回0；通过是否枚举子目录参数，可以枚举所有的子目录<br /> .参数 父文件夹路径, 文本型, , 如：D:\Program Files；目录分割符请用\，路径不以\结尾会自动添加<br /> .参数 子目录数组, 文本型, 参考 可空 数组, 用来装载返回的子目录路径；<br /> .参数 是否带路径, 逻辑型, 可空, 可为空默认为真,假=不带，真=带;<br /> .参数 是否继续向下枚举, 逻辑型, 可空, 为空，默认不枚举。<br /> .局部变量 子目录名, 文本型<br /> .局部变量 本级子目录列表, 文本型, , "0"<br /> .局部变量 目录计数器, 整数型<br /> .局部变量 目录总数, 整数型<br /> .局部变量 局_目录, 文本型<br /> <br /> 局_目录 ＝ 父文件夹路径<br /> .如果真 (取文本右边 (局_目录, 1) ≠ “\”)<br />     局_目录 ＝ 局_目录 ＋ “\”<br /> .如果真结束<br /> 子目录名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录)<br /> 是否带路径 ＝ 选择 (是否为空 (是否带路径), 真, 是否带路径)<br /> .判断循环首 (子目录名 ≠ “”)<br />     .如果真 (子目录名 ≠ “.” 且 子目录名 ≠ “..”)<br />         加入成员 (本级子目录列表, 子目录名)<br />         .如果 (是否带路径)<br />             加入成员 (子目录数组, 局_目录 ＋ 子目录名)<br />         .否则<br />             加入成员 (子目录数组, 子目录名)<br />         .如果结束<br /> <br />     .如果真结束<br />     处理事件 ()<br />     子目录名 ＝ 寻找文件 (, #子目录)<br /> .判断循环尾 ()<br /> 目录总数 ＝ 取数组成员数 (本级子目录列表)<br /> .如果真 (是否继续向下枚举)<br />     .计次循环首 (取数组成员数 (本级子目录列表), 目录计数器)<br />         .如果真 (目录_是否有子目录 (局_目录 ＋ 本级子目录列表 [目录计数器]))<br />             目录总数 ＝ 目录总数 ＋ 目录_枚举子目录1 (局_目录 ＋ 本级子目录列表 [目录计数器], 子目录数组, 是否带路径, 是否继续向下枚举)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> 返回 (目录总数)

灵海雪缘

测试效果很好，不错的源码，就是使用的精易模块。

jr21066

两个命令主要是为了防止用户有时找不到命令吧.
最好是取文件属性来判断是不是目录.文件名总是会有问题的

生命苦短

还有，这个命令似乎可以和目录_枚举子目录合并了吧。
好像也没有什么需要分开成两份的理由了呀。
（仔细想了下，可能是为了速度。还是分开好了。）