获取同目录下的所有文件

.如果真 (寻找文件 (目录 ＋ “\*.*”, ) ＝ “”) ' 先寻找有无文件，没有的话直接返回
返回 (假)
.如果真结束
文件名 ＝ 寻找文件 (目录 ＋ “\*.*”, ) ' 存在文件、开始第一次寻找、并加入到列表框
列表框1.加入项目 (文件名, 计数)
.判断循环首 (文件名 ≠ “”) ' 循环寻找、条件是文件名不为空
计数 ＝ 计数 ＋ 1
文件名 ＝ 寻找文件 (, ) ' 格式和上一次一样
.如果真 (文件名 ≠ “”)
列表框1.加入项目 (文件名, 计数)
.如果真结束

.判断循环尾 ()