|
楼主 |
发表于 2017-10-8 19:41:54
|
显示全部楼层
四川省绵阳市
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮_开始查找_被单击
.局部变量 找到的文件名, 文本型
.局部变量 x, 文本型
找到的文件名 = 寻找文件 (编辑框_目录.内容 + “\” + “*.*”, )
.判断循环首 (找到的文件名 ≠ “”)
x = 子程序_查找文件并添加 (找到的文件名)
列表框1.加入项目 (x, )
找到的文件名 = 寻找文件 (, )
.判断循环尾 ()
.子程序 子程序_查找文件并添加, 文本型, , 查找指定目录中所有的文件,并把文件添加到列表框当中
.参数 文件路径, 文本型
.局部变量 文件时间, 日期时间型
.局部变量 文件大小, 双精度小数型
文件时间 = 取文件时间 (编辑框_目录.内容 + “\” + 文件路径)
文件大小 = 四舍五入 (取文件尺寸 (编辑框_目录.内容 + “\” + 文件路径) ÷ 1024, 1)
返回 (文件路径 + “|时间:” + 到文本 (文件时间) + “|文件大小:” + 到文本 (文件大小) + “KB”)
|
|