版本 2
.程序集 窗口程序集1
.程序集变量 临时目录数组, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 n1, 整数型
子程序寻找所有目录 (“C:”)
.子程序 _按钮2_被单击
.局部变量 n1, 整数型
.计次循环首 (取数组成员数 (临时目录数组), n1)
子程序寻找所有目录 (临时目录数组 [n1])
.计次循环尾 ()
.子程序 子程序寻找所有目录
.参数 父目录, 文本型
.局部变量 目录, 文本型
目录 ＝ 寻找文件 (父目录 ＋ “\*”, 16)
.判断循环首 (目录 ≠ “”)
目录 ＝ 父目录 ＋ “\” ＋ 目录
加入成员 (临时目录数组, 目录)
编辑框1.加入文本 (目录 ＋ #换行符)
目录 ＝ 寻找文件 (, 16)
.判断循环尾 ()
我的问题是将 子程序寻找所有目录 放到循环里面怎么用不了！单击按钮1可以正常， 单击按钮2 程序就说 被调试易程序运行完毕