我的学易之路（分享我的源码）第二阶段 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
时间1	日期时间型

列表框1.清空 ()
时间1 ＝取现行时间 ()

如果 (目录编辑框.内容＝ “”)

信息框 (“请输入要查询的目录”, 0, “提示”, )

查找文件 (目录编辑框.内容)

列表框1.加入项目 (“共查找到” ＋到文本 (列表框1.取项目数 ()) ＋ “个文件，共耗时” ＋到文本 (取时间间隔 (取现行时间 (), 时间1, #秒 )) ＋ “秒”, )

子程序名	返回值类型	公开	备注
查找文件
参数名	类型	参考	可空	数组	备注
目录名	文本型

变量名	类型	静态	数组	备注
文件名	文本型

如果真 (取文本右边 (目录名, 1) ≠ “\”) ' 目录名如果不是以“\”结尾，就加上“\”,这个在后面查找子目录下面的文件时非常重要，如果不加“\”这个，就只能查找到子目录本身，而不能进入子目录

目录名＝目录名＋ “\”
文件名＝寻找文件 (目录名＋ “*.*”, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32) ' 查找目录下的所有文件，给变量文件名赋值

判断循环首 (文件名 ≠ “”) ' 文件名为空，即查找到最后一个文件时退出

如果真 (文件名＝ “.” 或文件名＝ “..”) ' 如果找到了本目录（.）或上级目录(..),就直接寻找下一个文件，并转到循环尾。

文件名＝寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)

到循环尾 ()

如果真 (取文件属性 (目录名＋文件名) ＝ #子目录 )

查找文件 (目录名＋文件名) ' 子程序递归。进入子目录，继续查找子目录下面的文件。

文件名＝寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32) ' 这一句和下一句可以不要，不要的话就会显示出子目录名，加上则会跳过显出子目录名，直接到循环尾。

到循环尾 ()

列表框1.加入项目 (目录名＋文件名＋ “ |时间：” ＋到文本 (取文件时间 (目录名＋文件名)) ＋ “ |大小：” ＋到文本 (四舍五入 (取文件尺寸 (目录名＋文件名) ÷ 1024, 1)) ＋ “KB”, )

文件名＝寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32) ' 继续查找下一个符合要求的文件

判断循环尾 ()

.版本 2<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 时间1, 日期时间型<br />
<br />
列表框1.清空 ()<br />
时间1 ＝ 取现行时间 ()<br />
.如果 (目录编辑框.内容 ＝ “”)<br />
    信息框 (“请输入要查询的目录”, 0, “提示”, )<br />
.否则<br />
    查找文件 (目录编辑框.内容)<br />
<br />
    列表框1.加入项目 (“共查找到” ＋ 到文本 (列表框1.取项目数 ()) ＋ “个文件，共耗时” ＋ 到文本 (取时间间隔 (取现行时间 (), 时间1, #秒)) ＋ “秒”, )<br />
.如果结束<br />
<br />
<br />
.子程序 查找文件<br />
.参数 目录名, 文本型<br />
.局部变量 文件名, 文本型<br />
<br />
.如果真 (取文本右边 (目录名, 1) ≠ “\”)  ' 目录名如果不是以“\”结尾，就加上“\”,这个在后面查找子目录下面的文件时非常重要，如果不加“\”这个，就只能查找到子目录本身，而不能进入子目录<br />
    目录名 ＝ 目录名 ＋ “\”<br />
.如果真结束<br />
文件名 ＝ 寻找文件 (目录名 ＋ “*.*”, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)  ' 查找目录下的所有文件，给变量文件名赋值<br />
.判断循环首 (文件名 ≠ “”)  ' 文件名为空，即查找到最后一个文件时退出<br />
<br />
    .如果真 (文件名 ＝ “.” 或 文件名 ＝ “..”)  ' 如果找到了本目录（.）或上级目录(..),就直接寻找下一个文件，并转到循环尾。<br />
        文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br />
        到循环尾 ()<br />
    .如果真结束<br />
<br />
    .如果真 (取文件属性 (目录名 ＋ 文件名) ＝ #子目录)<br />
        查找文件 (目录名 ＋ 文件名)  ' 子程序递归。进入子目录，继续查找子目录下面的文件。<br />
        文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)  ' 这一句和下一句可以不要，不要的话就会显示出子目录名，加上则会跳过显出子目录名，直接到循环尾。<br />
        到循环尾 ()<br />
    .如果真结束<br />
<br />
<br />
    列表框1.加入项目 (目录名 ＋ 文件名 ＋ “  |时间：” ＋ 到文本 (取文件时间 (目录名 ＋ 文件名)) ＋ “   |大小：” ＋ 到文本 (四舍五入 (取文件尺寸 (目录名 ＋ 文件名) ÷ 1024, 1)) ＋ “KB”, )<br />
    文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)  ' 继续查找下一个符合要求的文件<br />
.判断循环尾 ()