.版本 2 .支持库 spec .子程序 目录_枚举所有子目录 .参数 目录路径, 文本型 .参数 欲存放的数组变量, 文本型, 参考 数组 .局部变量 i, 整数型 .局部变量 zs, 文本型, , "0" .计次循环首 (目录_枚举子目录 (目录路径, zs, 真), i) 目录_枚举所有子目录 (zs [i] ＋ “\”, 欲存放的数组变量) 加入成员 (欲存放的数组变量, zs [i] ＋ “\”) 处理事件 () .计次循环尾 () .子程序 _按钮1_被单击 .局部变量 aaa, 文本型, , "0" .局部变量 i, 整数型 目录_枚举所有子目录 (编辑框2.内容, aaa) .计次循环首 (取数组成员数 (aaa), i) 编辑框1.加入文本 (aaa [i] ＋ #换行符) .计次循环尾 () 调试输出 (“共获得”, 取数组成员数 (aaa), “个目录”)