寻找所有文件

想学坏的小孩

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

列表框1.清空 ()
搜索文件 (编辑框1.内容, 编辑框2.内容)

.子程序 搜索文件
.参数 目录名, 文本型
.参数 文件名, 文本型, 可空
.局部变量 寻找结果, 文本型

.如果真 (目录名 ＝ “”)
    信息框 (“错误,搜索目录不能为空”, #错误图标, )
    返回 ()
.如果真结束
.如果真 (文件名 ＝ “”)
    文件名 ＝ “*.*”
.如果真结束
.如果真 (取文本右边 (目录名, 1) ≠ “\”)
    目录名 ＝ 目录名 ＋ “\”
.如果真结束
寻找结果 ＝ 寻找文件 (目录名 ＋ 文件名, )
.判断循环首 (寻找结果 ≠ “”)
    列表框1.加入项目 (目录名 ＋ 寻找结果, )
    寻找结果 ＝ 寻找文件 (, )
.判断循环尾 ()
寻找结果 ＝ 寻找文件 (目录名 ＋ “*.*”, #子目录)
.判断循环首 (寻找结果 ≠ “”)
    .如果真 (寻找结果 ≠ “.” 且 寻找结果 ≠ “..”)
        搜索文件 (目录名 ＋ 寻找结果, 文件名)
    .如果真结束
    寻找结果 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()

pl821216

看之下！！！！

一招试锋芒

好   谢谢这段代码