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