请问下怎么枚举出当前目录的所有子目录[包括二级 三级 一直到无限]

只听你德歌

比如我有一个文件夹
d:\11
11文件夹中包含 22文件夹 22文件夹下包含33 一直循环 有10个
d:\11\22\33\44\55\66\77\88\99\00

请问下这种怎么循环取出所有的子目录和所有的txt文件名呢

之乎者也

用一个递归把 先循环第一个目录 寻找文件那里第二个参数 你看看咯

只听你德歌

.版本 2

.局部变量 计次, 整数型
.局部变量 路径, 文本型
.局部变量 子目录, 文本型, , "0"
.局部变量 文件名, 文本型
.局部变量 所有子目录, 文本型, , "0"
.局部变量 子目录_二级, 文本型, , "0"
.局部变量 计次2, 整数型
.局部变量 子目录_三级, 文本型, , "0"
.局部变量 计次3, 整数型


路径 ＝ “D:\11”

目录_枚举子目录 (路径, 子目录, 真)
.计次循环首 (取数组成员数 (子目录), 计次)
    加入成员 (所有子目录, 子目录 [计次])
    目录_枚举子目录 (子目录 [计次], 子目录_二级, 真)
    .计次循环首 (取数组成员数 (子目录_二级), 计次2)
        加入成员 (所有子目录, 子目录_二级 [计次2])
        目录_枚举子目录 (子目录_二级 [计次2], 子目录_三级, 真)
        .计次循环首 (取数组成员数 (子目录_三级), 计次3)
            加入成员 (所有子目录, 子目录_三级 [计次3])
        .计次循环尾 ()
    .计次循环尾 ()
.计次循环尾 ()


这样对吗？  但是我取到的结果不对 取到了8000多个 而且很多重复的 怎么回事呢

只听你德歌

校长小猪猪 发表于 2012-5-7 18:19
用一个递归把 先循环第一个目录 寻找文件那里第二个参数 你看看咯

能帮忙写个例子吗 谢谢

小磊

.版本 2

.子程序 搜寻文件, , 公开, 如提供搜索目录路径，将会搜索此目录所有在内的文件。
.参数 目录, 文本型, , 目录，如“D:\”盘。
.参数 拓展名, 文本型, , “*.exe”
.参数 装载函数, 子程序指针, , 第一个参数传递文件名的指针
.参数 文件夹路径, 逻辑型, 可空, 是否返回文件夹路径
.局部变量 文本, 文本型

处理事件 ()
.如果真 (取文本右边 (目录, 1) ≠ “\”)
    目录 ＝ 目录 ＋ “\”
.如果真结束
文本 ＝ 寻找文件 (目录 ＋ 拓展名, )
.判断循环首 (文本 ≠ “”)
    文本 ＝ 目录 ＋ 文本
    CALL (到整数 (装载函数), lstrcpyn文本 (文本, 文本, 0))
    文本 ＝ 寻找文件 (, )
.判断循环尾 ()
文本 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)
.判断循环首 (文本 ≠ “”)
    .如果真 (取文本左边 (文本, 1) ≠ “.”)
        文本 ＝ 目录 ＋ 文本
        .如果真 (文件夹路径)
            CALL (到整数 (装载函数), lstrcpyn文本 (文本, 文本, 0))
        .如果真结束
        搜寻文件 (文本, 拓展名, 装载函数, 文件夹路径)
    .如果真结束
    文本 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
=================================

.版本 2

.子程序 CALL1, 整数型
.参数 子程序指针, 整数型
.参数 参数1, 整数型
.参数 参数2, 整数型
.参数 参数3, 整数型
.参数 参数4, 整数型
.参数 参数5, 整数型

置入代码 ({ 201, 88, 135, 4, 36, 255, 224 })
返回 (0)

.子程序 CALL, 整数型, 公开, 少在计次循环里使用
.参数 子程序指针, 整数型
.参数 参数1, 整数型, 可空
.参数 参数2, 整数型, 可空
.参数 参数3, 整数型, 可空
.参数 参数4, 整数型, 可空
.参数 参数5, 整数型, 可空

返回 (CALL1 (子程序指针, 参数1, 参数2, 参数3, 参数4, 参数5))
===============================

.版本 2

.DLL命令 lstrcpyn文本, 整数型, "kernel32.dll", "lstrcpyn", 公开, 取变量指针
    .参数 参数1, 文本型, 传址, 类型可变动
    .参数 参数2, 文本型, 传址
    .参数 保留, 整数型, , 0

只听你德歌

哎 看不懂 先拿下来研究吧.

零玖电脑

我也项知道整个，怎么获取