文件_枚举W修改版 给需要的人

李泽勇2

差DLL命令以及文件类型的，请在精易模块里面找，精易模块里面也有这个命令，这里只是增强了多扩展名支持。

  

子程序名	返回值类型	公开	备 注
文件_枚举W	整数型		枚举某个目录下的指定类型文件，成功返回文件数量
参数名	类 型	参考	可空	数组	备 注
欲寻找的目录	字节集
欲寻找的文件名	字节集				如果寻找全部文件可以填入{“*.*”}，或{“*.txt”}只找txt文件，过滤多个扩展名的用 分割文本() 例如：分割文本W (A2W (“*.txt|*.rar”, ), A2W (“|”, ), )
文件数组	字节集
是否带路径	逻辑型				为真时返回文件为绝对路径
是否遍历子目录	逻辑型				为真时文件数组不主动清空
是否枚举文件夹	逻辑型				为真时只枚举文件夹

变量名	类 型	静态	数组	备 注
FileDir	字节集
FindData	WIN32_FIND_DATAW
hFind	整数型
pFile	整数型
dwSize	整数型
FileName	字节集
dwLen	整数型
计次	整数型

FileDir ＝ 删除Unicode结尾空白字节 (欲寻找的目录, )
如果真 (取字节集右边 (FileDir, 2) ≠ { 92, 0 })
FileDir ＝ FileDir ＋ { 92, 0 }
如果真 (是否遍历子目录 ＝ 假)
清除数组 (文件数组)
计次循环首 (取数组成员数 (欲寻找的文件名), 计次)
hFind ＝ FindFirstFileW (FileDir ＋ 欲寻找的文件名 [计次], FindData)  ' *
如果真 (hFind ≠ #INVALID_HANDLE_VALUE )
循环判断首 ()
如果真 (是否枚举文件夹 ＝ 假 且 位与 (FindData.dwFileAttributes, #FILE_ATTRIBUTE_DIRECTORY ) ≠ 0 或 是否枚举文件夹 且 位与 (FindData.dwFileAttributes, #FILE_ATTRIBUTE_DIRECTORY ) ＝ 0)
到循环尾 ()
pFile ＝ 取数据_通用型_数组 (FindData.cFileName)
如果真 (pFile ＝ 0)
到循环尾 ()
dwSize ＝ lstrlenW (pFile)
如果真 (dwSize ＝ 0)
到循环尾 ()
FileName ＝ 指针到字节集 (pFile, dwSize × 2 ＋ 2)
如果真 (FileName ＝ { 46, 0, 0, 0 } 或 FileName ＝ { 46, 0, 46, 0, 0, 0 })
到循环尾 ()
如果 (是否带路径)
加入成员 (文件数组, FileDir ＋ FileName)
加入成员 (文件数组, FileName)

循环判断尾 (FindNextFileW (hFind, FindData))
FindClose (hFind)

计次循环尾 ()
如果真 (是否遍历子目录)
hFind ＝ FindFirstFileW (FileDir ＋ { 42, 0, 0, 0 }, FindData)
如果真 (hFind ≠ #INVALID_HANDLE_VALUE )
循环判断首 ()
pFile ＝ 取数据_通用型_数组 (FindData.cFileName)
如果真 (pFile ＝ 0)
到循环尾 ()
dwSize ＝ lstrlenW (pFile)
如果真 (dwSize ＝ 0)
到循环尾 ()
FileName ＝ 指针到字节集 (pFile, dwSize × 2 ＋ 2)
如果真 (FileName ＝ { 46, 0, 0, 0 } 或 FileName ＝ { 46, 0, 46, 0, 0, 0 })
到循环尾 ()
如果真 (位与 (FindData.dwFileAttributes, #FILE_ATTRIBUTE_DIRECTORY ) ≠ 0)
文件_枚举W (FileDir ＋ FileName, 欲寻找的文件名, 文件数组, 是否带路径, 是否遍历子目录, 是否枚举文件夹)

循环判断尾 (FindNextFileW (hFind, FindData))
FindClose (hFind)

dwLen ＝ 取数组成员数 (文件数组)
返回 (dwLen)

.版本 2<br /> <br /> .子程序 文件_枚举W, 整数型, 公开, 枚举某个目录下的指定类型文件，成功返回文件数量<br /> .参数 欲寻找的目录, 字节集<br /> .参数 欲寻找的文件名, 字节集, 数组, 如果寻找全部文件可以填入{“*.*”}，或{“*.txt”}只找txt文件，过滤多个扩展名的用 分割文本() 例如：分割文本W (A2W (“*.txt|*.rar”, ), A2W (“|”, ), )<br /> .参数 文件数组, 字节集, 参考 可空 数组<br /> .参数 是否带路径, 逻辑型, 可空, 为真时返回文件为绝对路径<br /> .参数 是否遍历子目录, 逻辑型, 可空, 为真时文件数组不主动清空<br /> .参数 是否枚举文件夹, 逻辑型, 可空, 为真时只枚举文件夹<br /> .局部变量 FileDir, 字节集<br /> .局部变量 FindData, WIN32_FIND_DATAW<br /> .局部变量 hFind, 整数型<br /> .局部变量 pFile, 整数型<br /> .局部变量 dwSize, 整数型<br /> .局部变量 FileName, 字节集<br /> .局部变量 dwLen, 整数型<br /> .局部变量 计次, 整数型<br /> <br /> FileDir ＝ 删除Unicode结尾空白字节 (欲寻找的目录, )<br /> .如果真 (取字节集右边 (FileDir, 2) ≠ { 92, 0 })<br />     FileDir ＝ FileDir ＋ { 92, 0 }<br /> .如果真结束<br /> .如果真 (是否遍历子目录 ＝ 假)<br />     清除数组 (文件数组)<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (欲寻找的文件名), 计次)<br />     hFind ＝ FindFirstFileW (FileDir ＋ 欲寻找的文件名 [计次], FindData)  ' *<br />     .如果真 (hFind ≠ #INVALID_HANDLE_VALUE)<br />         .循环判断首 ()<br />             .如果真 (是否枚举文件夹 ＝ 假 且 位与 (FindData.dwFileAttributes, #FILE_ATTRIBUTE_DIRECTORY) ≠ 0 或 是否枚举文件夹 且 位与 (FindData.dwFileAttributes, #FILE_ATTRIBUTE_DIRECTORY) ＝ 0)<br />                 到循环尾 ()<br />             .如果真结束<br />             pFile ＝ 取数据_通用型_数组 (FindData.cFileName)<br />             .如果真 (pFile ＝ 0)<br />                 到循环尾 ()<br />             .如果真结束<br />             dwSize ＝ lstrlenW (pFile)<br />             .如果真 (dwSize ＝ 0)<br />                 到循环尾 ()<br />             .如果真结束<br />             FileName ＝ 指针到字节集 (pFile, dwSize × 2 ＋ 2)<br />             .如果真 (FileName ＝ { 46, 0, 0, 0 } 或 FileName ＝ { 46, 0, 46, 0, 0, 0 })<br />                 到循环尾 ()<br />             .如果真结束<br />             .如果 (是否带路径)<br />                 加入成员 (文件数组, FileDir ＋ FileName)<br />             .否则<br />                 加入成员 (文件数组, FileName)<br />             .如果结束<br /> <br />         .循环判断尾 (FindNextFileW (hFind, FindData))<br />         FindClose (hFind)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (是否遍历子目录)<br />     hFind ＝ FindFirstFileW (FileDir ＋ { 42, 0, 0, 0 }, FindData)<br />     .如果真 (hFind ≠ #INVALID_HANDLE_VALUE)<br />         .循环判断首 ()<br />             pFile ＝ 取数据_通用型_数组 (FindData.cFileName)<br />             .如果真 (pFile ＝ 0)<br />                 到循环尾 ()<br />             .如果真结束<br />             dwSize ＝ lstrlenW (pFile)<br />             .如果真 (dwSize ＝ 0)<br />                 到循环尾 ()<br />             .如果真结束<br />             FileName ＝ 指针到字节集 (pFile, dwSize × 2 ＋ 2)<br />             .如果真 (FileName ＝ { 46, 0, 0, 0 } 或 FileName ＝ { 46, 0, 46, 0, 0, 0 })<br />                 到循环尾 ()<br />             .如果真结束<br />             .如果真 (位与 (FindData.dwFileAttributes, #FILE_ATTRIBUTE_DIRECTORY) ≠ 0)<br />                 文件_枚举W (FileDir ＋ FileName, 欲寻找的文件名, 文件数组, 是否带路径, 是否遍历子目录, 是否枚举文件夹)<br />             .如果真结束<br /> <br />         .循环判断尾 (FindNextFileW (hFind, FindData))<br />         FindClose (hFind)<br />     .如果真结束<br /> <br /> .如果真结束<br /> dwLen ＝ 取数组成员数 (文件数组)<br /> 返回 (dwLen)

wgqxj

谢谢分享

652904730

谢谢分享 很给力

yuxuanju

非常实用，下载学习。

西山翠冷

感谢分享！大力支持！！

shuya1

支持开源~！感谢分享

tpwlyz

感谢开源 支持支持啊啊啊

笨来无一悟

功德无量 建议提交到精易模块

396384183

感谢分享，很给力！~

kike

精易有你更精彩！