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

生命苦短 · 发表于 2020-11-14 21:09:44

子程序名	返回值类型	公开	备注
目录_枚举子目录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
目录计数器	整数型
目录总数	整数型
局_目录	文本型