遍历文件夹方法

hcwanz

一个小东西，用于遍历文件夹中的所有文件。

<火山程序 类型 = "通常" 版本 = 1 />

包 火山.程序

类 启动类 <公开 基础类 = 程序类>
{
    变量 文管 <类型 = 文件查找类>
    变量 配置基 <静态 类型 = 文本型 值 = "D:\\配置\\">

    方法 启动方法 <公开 类型 = 整数>
    {
        调试输出 (文管.寻找文件 (配置基 + "*", 0, ))
        返回 (1)
    }

    方法 文件查找类_找到文件 <接收事件 类型 = 整数 注释 = "  每当找到任何一个文件或目录,在进行\"欲寻找文件的属性\"参数值所指定的" 注释 = "属性匹配检查之前,就会发送此事件."
            返回值注释 = "事件处理方法返回1表示认可此文件并将其返回,返回0表示不进行任何处理." 折叠2>
    参数 来源对象 <类型 = 文件查找类 注释 = "提供事件产生的具体来源对象">
    参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
    参数 欲寻找文件的属性 <类型 = 整数 注释 = "调用\"寻找文件\"所提供的\"欲寻找文件的属性\"参数值">
    参数 当前文件名称 <类型 = 文本型 注释 = "提供当前所找到的文件或目录的名称">
    参数 当前文件属性 <类型 = 整数 注释 = "  提供当前所找到的文件或目录的属性,为\"文件属性\"类中各个常量值的组合," 注释 = "可以使用\"位与\"关键字分别判断.">
    {
        变量 层标 <静态 类型 = 整数 值 = 0 注释 = "当前在几层子文件夹里">
        调试输出 (取重复文本 (">", 标记值) + 当前文件名称)
        如果 (当前文件属性 == 文件属性.子目录)  // 当前找到的文件是文件夹//遍历当前文件夹
        {
            层标 = 层标 + 1
            连接路径 (配置基, 当前文件名称, 配置基)  // 新欲遍历文件夹的绝对路径
            变量 子查找 <类型 = 文件查找类>
            挂接事件 (子查找, 层标)
            如果 ("" == 子查找.寻找文件 (配置基 + "\\*", 0))  // 进行当前文件夹的遍历。当返回空文本的时候,说明文件夹已经遍历完了。
            {
                配置基 = 取文件名路径 (配置基)  // 删除当前文件夹名,获得上级文件夹绝对路径。
                层标 = 层标 - 1
            }
        }
        返回 (0)
    }
}