枚举指定目录下的所有文件（包括所有多级子目录文件）
<火山程序 类型 = "通常" 版本 = 1 />方法 枚举文件 <类型 = 文本数组类>
参数 主目录 <类型 = 文本型>
参数 文件通配符 <类型 = 文本型>
{
变量 文件查找 <类型 = 文件查找类>
变量 目录数组 <类型 = 文本数组类>
变量 文件数组 <类型 = 文本数组类>
变量 临时文本 <类型 = 文本型>
变量 临时目录 <类型 = 文本型>
变量 x <类型 = 整数>
如果 (是否以文本结束 (主目录, "\\", ) == 假)
{
主目录 = 主目录 + "\\"
}
目录数组.加入成员 (主目录)
如果 (目录数组.取成员数 () > 0)
{
计次循环 (目录数组.取成员数 ())
{
x = 取循环索引 ()
临时目录 = 目录数组.取成员 (x)
如果 (是否以文本结束 (临时目录, "\\", ) == 假)
{
临时目录 = 临时目录 + "\\"
}
临时文本 = 文件查找.寻找文件 (临时目录 + "*.*", 文件属性.子目录, )
判断循环 (文本是否为空 (临时文本) == 假)
{
目录数组.加入成员 (临时目录 + 临时文本)
临时文本 = 文件查找.寻找文件 ("", 文件属性.子目录, )
}
}
}
计次循环 (目录数组.取成员数 ())
{
x = 取循环索引 ()
临时目录 = 目录数组.取成员 (x)
如果 (是否以文本结束 (临时目录, "\\", ) == 假)
{
临时目录 = 临时目录 + "\\"
}
临时文本 = 文件查找.寻找文件 (临时目录 + 文件通配符, 文件属性.存档文件, )
判断循环 (文本是否为空 (临时文本) == 假)
{
文件数组.加入成员 (临时目录 + 临时文本)
临时文本 = 文件查找.寻找文件 ("", 文件属性.存档文件, )
}
}
返回 (文件数组)
}
根据其他网友的源码进行修改的，仅供参考！
谢谢大佬
页:
[1]