代码如下：.版本 2 .支持库 iext .支持库 xplib .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 _启动窗口.高度 ＝ _启动窗口.高度 ＋ 221 － _启动窗口.取用户区高度 ()时钟1.时钟周期 ＝ 100 时钟2.时钟周期 ＝ 200 状态条1.置文本 (3, 到文本 (到大写 (取主机名 ()))XP风格...
代码如下：
.版本 2
.支持库 iext
.支持库 xplib
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
_启动窗口.高度 ＝ _启动窗口.高度 ＋ 221 － _启动窗口.取用户区高度 ()
时钟1.时钟周期 ＝ 100
时钟2.时钟周期 ＝ 200
状态条1.置文本 (3, 到文本 (到大写 (取主机名 ())))
XP风格 (#蓝色风格)
按钮4.获取焦点 ()
标签1.横向对齐方式 ＝ 2
b ＝ “ 本工具只用来读取文件属性 ”
c ＝ 0
.子程序 _时钟2_周期事件
c ＝ c ＋ 1
d ＝ 取文本左边 (b, c)
标签1.标题 ＝ d
.如果真 (c ＞ 取文本长度 (b) ＋ 1)
c ＝ 0
.如果真结束
.子程序 _按钮3_被单击
销毁 ()
.子程序 _按钮4_被单击
标签3.标题 ＝ “文件属性：”
编辑框2.内容 ＝ “”
通用对话框1.打开 ()
编辑框1.内容 ＝ 通用对话框1.文件名
.子程序 _按钮1_被单击
.局部变量 b, 双精度小数型
.局部变量 c, 双精度小数型
.局部变量 d, 短整数型
.局部变量 a, 双精度小数型
d ＝ 取文件属性 (编辑框1.内容)
a ＝ 四舍五入 (取文件尺寸 (编辑框1.内容) ÷ 1024, 1)
b ＝ 四舍五入 (a, 1) ÷ 1024
c ＝ 四舍五入 (b, 1) ÷ 1024
.判断开始 (编辑框1.内容 ＝ “”)
信息框 (“没有取文件！”, #信息图标, “提 示”)
.判断 (文件是否存在 (编辑框1.内容))
编辑框2.内容 ＝ “此文件建于 ” ＋ 到文本 (取日期 (取文件时间 (编辑框1.内容))) ＋ #换行符 ＋ “并有 ” ＋ 到文本 (a) ＋ “ KB” ＋ #换行符
.默认
信息框 (“文件不存在,可能被移删或更名！”, #信息图标, “提 示”)
.判断结束
.如果 (a ＞ 1024)
编辑框2.内容 ＝ “此文件建于 ” ＋ 到文本 (取日期 (取文件时间 (编辑框1.内容))) ＋ #换行符 ＋ “并有 ” ＋ 到文本 (四舍五入 (b, 1)) ＋ “ MB” ＋ #换行符
.否则
.如果结束
.如果 (b ＞ 1024)
编辑框2.内容 ＝ “此文件建于 ” ＋ 到文本 (取日期 (取文件时间 (编辑框1.内容))) ＋ #换行符 ＋ “并有 ” ＋ 到文本 (四舍五入 (c, 1)) ＋ “ GB” ＋ #换行符
.否则
.如果结束
.如果 (d ＝ 32)
编辑框2.内容 ＝ 编辑框2.内容 ＋ “此文件 是 存档文件！”
.否则
编辑框2.内容 ＝ 编辑框2.内容 ＋ “此文件 否 存档文件！”
.如果结束
.如果真 (编辑框1.内容 ＝ “”)
编辑框2.内容 ＝ “”
.如果真结束
.子程序 _时钟1_周期事件
状态条1.置文本 (1, 时间到文本 (取现行时间 (), ))
****************************************************************8
这里是那里面要用到的一个全局变量的相关数据：
http://hi.baidu.com/liu66526/album/item/9a429dfbf7f4e2094e4aeaac.html主介面图：
http://hi.baidu.com/liu66526/album/item/c8b1073888d8660fb9998faa.html你也可以把邮箱给我，我给你传。2009-09-10
