求取文件夹内所有文件和文件夹

yhon宇少

取文件夹内所有文件和文件夹

只要一级的就可以  

不要子文件夹内文件

最近在写C/S软件、、有点乱

回答的话 发现成的源码、、我现在灰常乱、、

fsjoe

第一个循环加入的就是文件
第二个循环加入的就是目录
如果你一定要区分开来,就用两个不同和文本数组吧

fsjoe

我看看,好像有个现成的...

.版本 2
.子程序 枚举指定文件夹文件, 整数型, 公开, 返回文件数;不枚举子目录文件
.参数 参数_待举目录, 文本型, , 自动判断目录尾是否带"\"
.参数 参数_扩展名, 文本型, , 如：*.txt  *.*=所有文件
.参数 参数_是否包括目录, 逻辑型
.参数 参数_文件名, 文本型, 参考 数组
.局部变量 局_文件名, 文本型
.如果真 (取文本右边 (参数_待举目录, 1) ≠ “\”)  ' 判断当前目录的格式是否正确。如“C:”,这格式是不正确的,改为"C:\"。
    参数_待举目录 ＝ 参数_待举目录 ＋ “\”
.如果真结束
局_文件名 ＝ 寻找文件 (参数_待举目录 ＋ 参数_扩展名, )
.判断循环首 (局_文件名 ≠ “”)
    加入成员 (参数_文件名, 参数_待举目录 ＋ 局_文件名)
    局_文件名 ＝ 寻找文件 (, )
    处理事件 ()
.判断循环尾 ()
.如果真 (参数_是否包括目录)
    局_文件名 ＝ 寻找文件 (参数_待举目录 ＋ 参数_扩展名, #子目录)
    .判断循环首 (局_文件名 ≠ “”)
        .如果真 (取文本左边 (局_文件名, 1) ≠ “.”)
            加入成员 (参数_文件名, 参数_待举目录 ＋ 局_文件名)
        .如果真结束
        局_文件名 ＝ 寻找文件 (, #子目录)
    .判断循环尾 ()
.如果真结束
返回 (取数组成员数 (参数_文件名))