枚举硬盘所有目录

weqwqe

要求：调试输出（枚举所有盘的目录信息），求大神

zc4403747

[e]
.版本 2
.支持库 spec

.局部变量 父数组, 文本型, , "0", 目录数组
.局部变量 主文件夹, 文本型, , , 手动选择的顶级目录
.局部变量 x, 整数型, , , 父数组比较用x
.局部变量 y, 整数型, , , 父组数比较用y
.局部变量 f, 文本型, , , 最后一级  文件名

加入成员 (父数组, “f:”)
x ＝ 1
y ＝ 1
.循环判断首 ()
    f ＝ 寻找文件 (父数组 [x] ＋ “\*.*”, #子目录)
    .判断循环首 (f ≠ “”)
        .如果真 (f ≠ “.” 且 f ≠ “..”)
            加入成员 (父数组, 父数组 [x] ＋ “\” ＋ f)
        .如果真结束
        f ＝ 寻找文件 (, #子目录)
    .判断循环尾 ()
    y ＝ 取数组下标 (父数组, )
    x ＝ x ＋ 1
.循环判断尾 (x ≤ y)
.计次循环首 (取数组成员数 (父数组), x)
    调试输出 (父数组 [x])
.计次循环尾 ()

[/e]