| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 子程序1 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| a | 文本型 | 0 | ||||
| i | 整数型 | |||||
| b | 文本型 | 0 | ||||
| z | 整数型 | |||||
a ＝ 分割文本 (目录搜寻 (父目录 ＋ “\*”), “;”, )
计次循环首 (取数组成员数 (a), i)
超级列表框1.插入表项 (, a , 0, , , )
计次循环尾 ()i ＝ 0
b ＝ 分割文本 (文件搜寻 (父目录 ＋ “\*”), “;”, )
计次循环首 (取数组成员数 (b), i)
如果真 (b ＝ “$RECYCLE.BIN” 或 b ＝ “$Recycle.Bin”)到循环尾 ()
超级列表框1.插入表项 (, b , 1, , , )计次循环尾 ()计次循环首 (超级列表框1.取表项数 (), )如果 (超级列表框1.取图片 (z, 0) ＝ 0)超级列表框1.置标题 (z, 1, “文件夹”)超级列表框1.置标题 (z, 2, 到文本 (四舍五入 (目录_取大小 (父目录 ＋ “\” ＋ 超级列表框1.取标题 (z, 0)) ÷ 1024, )) ＋ “KB”)
超级列表框1.置标题 (z, 1, 文件_取类型 (父目录 ＋ “\” ＋ 超级列表框1.取标题 (z, 0)))超级列表框1.置标题 (z, 2, 到文本 (四舍五入 (文件_取实际大小 (父目录 ＋ “\” ＋ 超级列表框1.取标题 (z, 0)) ÷ 1024, )) ＋ “KB”)
z ＝ z ＋ 1计次循环尾 ()z ＝ 0
| i支持库列表 | 支持库注释 |
| iext | 扩展界面支持库一 |
