第十一课-文件浏览器

本课全程无难点……

作业是把程序写入子程序，通过投递参数完成。

命令：

寻找文件（）

取文件尺寸（）

取文件时间（）

列表框.加入项目（）

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

.局部变量 找到的文件, 文本型

.局部变量 文件时间, 日期时间型

.局部变量 文件大小, 双精度小数型

找到的文件 ＝ 寻找文件 (编辑框1.内容 ＋ “\” ＋ “*.exe”, )

.判断循环首 (找到的文件 ≠ “”)

    找到的文件 ＝ 寻找文件 (, )

    文件大小 ＝ 四舍五入 (取文件尺寸 (编辑框1.内容 ＋ “\” ＋ 找到的文件) ÷ 1024, 1)

    文件时间 ＝ 取文件时间 (编辑框1.内容 ＋ “\” ＋ 找到的文件)

    列表框1.加入项目 (找到的文件 ＋ “|” ＋ 到文本 (文件时间) ＋ “|” ＋ 到文本 (文件大小) ＋ “kb”, )

.判断循环尾 ()

查找文件子程序 (编辑框1.内容)

.子程序 查找文件子程序

.参数 文件路径, 文本型

.局部变量 找到的文件, 文本型

.局部变量 文件时间, 日期时间型

.局部变量 文件大小, 双精度小数型

找到的文件 ＝ 寻找文件 (文件路径 ＋ “\” ＋ “*.exe”, )

.判断循环首 (找到的文件 ≠ “”)

    找到的文件 ＝ 寻找文件 (, )

    文件大小 ＝ 四舍五入 (取文件尺寸 (编辑框1.内容 ＋ “\” ＋ 找到的文件) ÷ 1024, 1)

    文件时间 ＝ 取文件时间 (编辑框1.内容 ＋ “\” ＋ 找到的文件)

    列表框1.加入项目 (找到的文件 ＋ “|” ＋ 到文本 (文件时间) ＋ “|” ＋ 到文本 (文件大小) ＋ “kb”, )

.判断循环尾 ()

返回 ()