类似这种目录有多少个

咽泪装欢

这种规则的
统计下数

Ls60

回复的高级模式抽风了，将就看一下：https://tt520.lanzouq.com/iylmA04jydne

鹏书

目录_枚举子目录 ()

汉族

寻找文件（路径+"*.*",#子目录） ‘简易的就是 目录_枚举子目录  调用 精易模块

Ls60

  

子程序名	返回值类型	公开	备 注
子程序1

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

目录_枚举子目录 (取运行目录 (), 子目录名数组, , 子目录路径数组, )
计次循环首 (取数组成员数 (子目录路径数组), i)
如果真 (取文本左边 (子目录路径数组 [i], 7) ＝ “leidian”)
调试输出 (子目录名数组 [i], 子目录路径数组 [i])
t ＝ t ＋ 1

计次循环尾 ()
调试输出 (“共有” ＋ 到文本 (i) ＋ “个leidian文件夹”)

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

变量名	类 型	静态	数组	备 注
子目录名	文本型
局_目录	文本型

局_目录 ＝ 父文件夹路径
如果真 (取文本右边 (局_目录, 1) ≠ “\”)
局_目录 ＝ 局_目录 ＋ “\”
子目录名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录 )
判断循环首 (子目录名 ≠ “”)
如果真 (子目录名 ≠ “.” 且 子目录名 ≠ “..”)
加入成员 (子目录名数组, 子目录名)
加入成员 (子目录路径数组, 局_目录 ＋ 子目录名)
子目录名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()
如果真 (是否按字母排序)
数组_排序 (子目录名数组, 0, )
返回 (取数组成员数 (子目录名数组))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 子目录名数组, 文本型, , "0"<br /> .局部变量 子目录路径数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 t, 整数型<br /> <br /> 目录_枚举子目录 (取运行目录 (), 子目录名数组, , 子目录路径数组, )<br /> .计次循环首 (取数组成员数 (子目录路径数组), i)<br />     .如果真 (取文本左边 (子目录路径数组 <i>, 7) ＝ “leidian”)<br />         调试输出 (子目录名数组 <i>, 子目录路径数组 <i>)<br />         t ＝ t ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (“共有” ＋ 到文本 (i) ＋ “个leidian文件夹”)<br /> <br /> <br /> .子程序 目录_枚举子目录_改, 整数型, 公开, 取一个文件夹下级子目录；成功返回子目录数量，失败返回0；<br /> .参数 父文件夹路径, 文本型, , 如：D:\Program Files；目录分割符请用\，路径不以\结尾会自动添加<br /> .参数 子目录名数组, 文本型, 参考 可空 数组, 用来装载返回的子目录路径；<br /> .参数 子目录路径数组, 文本型, 参考 可空 数组<br /> .参数 是否按字母排序, 逻辑型, 可空, 默认为假；真=按字母a-z排序  假=不排序<br /> .局部变量 子目录名, 文本型<br /> .局部变量 局_目录, 文本型<br /> <br /> 局_目录 ＝ 父文件夹路径<br /> .如果真 (取文本右边 (局_目录, 1) ≠ “\”)<br />     局_目录 ＝ 局_目录 ＋ “\”<br /> .如果真结束<br /> 子目录名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录)<br /> .判断循环首 (子目录名 ≠ “”)<br />     .如果真 (子目录名 ≠ “.” 且 子目录名 ≠ “..”)<br />         加入成员 (子目录名数组, 子目录名)<br />         加入成员 (子目录路径数组, 局_目录 ＋ 子目录名)<br />     .如果真结束<br />     子目录名 ＝ 寻找文件 (, #子目录)<br /> .判断循环尾 ()<br /> .如果真 (是否按字母排序)<br />     数组_排序 (子目录名数组, 0, )<br /> .如果真结束<br /> 返回 (取数组成员数 (子目录名数组))

BluestarCoder

BluestarCoder