获取硬盘驱动器列表
取硬盘驱动器列表_ (全局_驱动器列表)
' 加入到列表框
组合框_驱动器.加入项目 (“所有硬盘”, )
.计次循环首 (取数组成员数 (全局_驱动器列表), i)
组合框_驱动器.加入项目 (全局_驱动器列表 [i], )
.计次循环尾 ()
组合框_驱动器.加入项目 (“浏览”, )
' 随便加个成员，防止数组超出下标
加入成员 (全局_驱动器列表, “soul”)
组合框_驱动器.现行选中项 ＝ 0
' 停止按钮禁止
按钮_停止.禁止 ＝ 真
' 载入历史记录
全局_历史目录 ＝ 取运行目录 () ＋ “\DirList.txt”
.如果真 (文件是否存在 (全局_历史目录))
局部_文件号 ＝ 打开文件 (全局_历史目录, #读入, #无限制)
.判断循环首 (是否在文件尾 (局部_文件号, ) ＝ 假)
局部_目录 ＝ 读入一行 (局部_文件号)
加入成员 (全局_驱动器列表, 局部_目录)
组合框_驱动器.加入项目 (局部_目录, )
.判断循环尾 ()
关闭文件 (局部_文件号)
上一篇 创建快捷方式与加入快速启动栏