子目录枚举排序 数字从小到大排序

huowang8888

最近在做批量克隆虚拟机的程序，克隆后发现克隆排序是这样的  

后来通过搜索大法 找到论坛前辈zainex的一个算法 整合到精易模块的算法里了 总算可以正常显示了 分享给易友。

  

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

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

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


子目录名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()
判断 (排序 ＝ 0)
数组_排序 (子目录数组, 0, )
判断 (排序 ＝ 1)
目录排序 (子目录数组, 假)
判断 (排序 ＝ 2)
目录排序 (子目录数组, 真)



返回 (取数组成员数 (子目录数组))

DLL命令名	返回值类型	公开	备 注
StrCmpLogicalW	整数型
DLL库文件名:
Shlwapi.dll
在DLL库中对应命令名:
StrCmpLogicalW
参数名	类 型	传址	数组	备 注
文本1	字节集
文本2	字节集

.版本 2<br /> <br /> .子程序 目录_枚举子目录, 整数型, 公开, 取一个文件夹下级子目录；成功返回子目录数量，失败返回0；<br /> .参数 父文件夹路径, 文本型, , 如：D:\Program Files；目录分割符请用\，路径不以\结尾会自动添加<br /> .参数 子目录数组, 文本型, 参考 可空 数组, 用来装载返回的子目录路径；<br /> .参数 是否带路径, 逻辑型, 可空, 假=不带，真=带;<br /> .参数 排序, 整数型, , 0=按字母a-z排序 1=按数字1-N从小到大排序  1=按字N-1从大到小排序 <br /> .局部变量 子目录名, 文本型<br /> .局部变量 局_目录, 文本型<br /> <br /> 局_目录 ＝ 父文件夹路径<br /> .如果真 (取文本右边 (局_目录, 1) ≠ “\”)<br />     局_目录 ＝ 局_目录 ＋ “\”<br /> .如果真结束<br /> 子目录名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录)<br /> .判断循环首 (子目录名 ≠ “”)<br />     .如果真 (子目录名 ≠ “.” 且 子目录名 ≠ “..”)<br />         .如果 (是否带路径 ＝ 假)<br />             加入成员 (子目录数组, 子目录名)<br />         .否则<br />             加入成员 (子目录数组, 局_目录 ＋ 子目录名)<br />         .如果结束<br /> <br />     .如果真结束<br /> <br />     子目录名 ＝ 寻找文件 (, #子目录)<br /> .判断循环尾 ()<br /> .判断开始 (排序 ＝ 0)<br />     数组_排序 (子目录数组, 0, )<br /> .判断 (排序 ＝ 1)<br />     目录排序 (子目录数组, 假)<br /> .判断 (排序 ＝ 2)<br />     目录排序 (子目录数组, 真)<br /> .默认<br /> <br /> .判断结束<br /> <br /> 返回 (取数组成员数 (子目录数组))<br /> .版本 2<br /> <br /> .DLL命令 StrCmpLogicalW, 整数型, "Shlwapi.dll", "StrCmpLogicalW"<br />     .参数 文本1, 字节集<br />     .参数 文本2, 字节集

huowang8888

3awen 发表于 2023-5-23 14:56
精易模块自带  数据_排序1（），即可

感谢告知

3awen

精易模块自带  数据_排序1（），即可

396384183

感谢分享

亿万

感谢分享

就是你了

感谢分享，很给力！~

kantal

感谢分享，很给力！~

pipicool

学习一下

一指温柔

感谢分享，很给力！~