盘符_数组 = 取驱动器列表 ()
清除数组 (文件路径)
.计次循环首 (取数组成员数 (盘符_数组), x)
文件_枚举1 (盘符_数组 [x], “*.*”, &子程序1)
.计次循环尾 ()
.判断开始 (取数组成员数 (文件路径) > 0)
信息框 (“1”, 0, , )
.默认
信息框 (“2”, 0, , )
盘符_数组 = 取驱动器列表 ()
清除数组 (文件路径)
.计次循环首 (取数组成员数 (盘符_数组), x)
文件_枚举1 (盘符_数组 [x], “*.*”, &子程序1)
.计次循环尾 ()
.判断开始 (取数组成员数 (文件路径) > 0)
信息框 (“1”, 0, , )
.默认
信息框 (“2”, 0, , )