.版本 2

.局部变量 寻找结果, 文本型

.如果真 (参数_目录名 ＝ “”)
参数_目录名 ＝ “c:\”
.如果真结束
.如果真 (取文本右边 (参数_目录名, 1) ≠ “\”)
参数_目录名 ＝ 参数_目录名 ＋ “\”
.如果真结束
.如果真 (参数_文件名 ＝ “”)
参数_文件名 ＝ “*.*”
.如果真结束
寻找结果 ＝ 寻找文件 (参数_目录名 ＋ 参数_文件名, )
输出调试文本 (寻找结果)

.判断循环首 (寻找结果 ≠ “”)
列表框1.加入项目 (参数_目录名 ＋ 寻找结果, )
寻找结果 ＝ 寻找文件 (, )
.判断循环尾 ()
寻找结果 ＝ 寻找文件 (参数_目录名 ＋ 参数_文件名, #子目录)