.支持库 iext

.局部变量 计次, 整数型

.局部变量 磁盘, 文本型

.局部变量 卷标, 文本型

.局部变量 序列号, 整数型

.局部变量 文件系统, 文本型

.计次循环首 (26, 计次)

    磁盘 ＝ 字符 (64 ＋ 计次)

    .如果真 (文件是否存在 (磁盘 ＋ “:\nul”))

        卷标 ＝ 取空白文本 (255)

        文件系统 ＝ 取空白文本 (255)

        取磁盘信息 (磁盘 ＋ “:\”, 卷标, 255, 序列号, 255, 0, 文件系统, 255)

        超级列表框.插入表项 (, 磁盘 ＋ “:”, , , , )

        超级列表框.置标题 (超级列表框.取表项数 () － 1, 1, 选择 (卷标 ＝ “”, “本地磁盘”, 卷标))

        超级列表框.置标题 (超级列表框.取表项数 () － 1, 2, 格式化大小 (取磁盘总空间 (磁盘) × 1024))

        超级列表框.置标题 (超级列表框.取表项数 () － 1, 3, 格式化大小 (取磁盘剩余空间 (磁盘) × 1024))

        超级列表框.置标题 (超级列表框.取表项数 () － 1, 4, 到文本 (序列号))

        超级列表框.置标题 (超级列表框.取表项数 () － 1, 5, 文件系统)

    .如果真结束

.计次循环尾 ()

.子程序 格式化大小, 文本型

.参数 大小, 双精度小数型

.局部变量 次数, 整数型

次数 ＝ 1

.判断循环首 (大小 ≥ 1024)

    次数 ＝ 次数 ＋ 1

    大小 ＝ 大小 ÷ 1024

.判断循环尾 ()

返回 (到文本 (四舍五入 (大小, 2)) ＋ “ ” ＋ 多项选择 (次数, “Byte”, “KB”, “MB”, “GB”, “TB”, “PB”, “EB”, “ZB”, “YB”, “NB”, “DB”, “CB”))