枚举目录问题。会的来。

创世魂

枚举某个文件夹内，所有的文件夹。最后结果要带上路径。


例如： C盘下面有    文件夹“1”、“2”、“3”


文件夹 1  里面也有n个文件夹，这N个文件夹里面也有文件夹。
文件夹 2 里面也有N个文件夹


点击某个按钮后，

把所有的目录枚举出来，来一个源码。。

C:\1
C:\2
C:\3
C:\1\n
C:\2\n\n
C:\3\n\y\q


例子只是一个例子，并不是说目录名称就是这个名字。点击按钮后、把 某个文件夹内 所有的 目录 枚举出来。谢谢了、老规矩，来一个源码。

怪伱过分羙丽

要精易模块
编辑框1是要枚举的目录，2是输出编辑框

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
目录数组	文本型		0
a	整数型
s	整数型

目录_枚举子目录1 (编辑框1.内容, 目录数组, 真, 真)
a ＝ 取数组成员数 (目录数组)
计次循环首 (a, s)
编辑框2.加入文本 (目录数组 [s] ＋ #换行符 )
计次循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> .局部变量 目录数组, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 s, 整数型<br /> <br /> 目录_枚举子目录1 (编辑框1.内容, 目录数组, 真, 真)<br /> a ＝ 取数组成员数 (目录数组)<br /> .计次循环首 (a, s)<br /> 编辑框2.加入文本 (目录数组 <strike> ＋ #换行符)<br /> .计次循环尾 ()

梦雨心君

.子程序 目录_枚举子目录1, 整数型, 公开, 取一个文件夹下级子目录；成功返回子目录数量，失败返回0；通过是否枚举子目录参数，可以枚举所有的子目录
.参数 父文件夹路径, 文本型,   , 如：D:\Program Files；目录分割符请用\，路径不以\结尾会自动添加
.参数 子目录数组, 文本型, 传址 可空 数组, 用来装载返回的子目录路径；
.参数 是否带路径, 逻辑型,  可空 , 可为空默认为真,假=不带，真=带;
.参数 是否继续向下枚举, 逻辑型,  可空 , 为空，默认不枚举。