html查找并列出列表,查找指定文件夹里文本并列出到超级列表框

.如果真 (取文本右边 (目录, 1) ≠ “\”) ' 判断当前目录的格式是否正确。如“C:”,这格式是不正确的,改为"C:\"。

目录 ＝ 目录 ＋ “\”

.如果真结束

文件名 ＝ 寻找文件 (目录 ＋ “*.txt”, ) ' “*.mp3”搜索MP3文件，“*.*”搜索所有文件。

.判断循环首 (文件名 ≠ “”) ' 判断文件名是否有效，有效向下执行搜索。

输出调试文本 (目录 ＋ 文件名) ' 当前搜索到的文件路径

.如果真 (寻找文本 (到文本 (读入文件 (目录 ＋ 文件名)), 编辑框2.内容, , 假) ≠ -1)

插入位置 ＝ 超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (插入位置, 0, 文件名)

超级列表框1.置标题 (插入位置, 1, 目录)

.如果真结束

文件名 ＝ 寻找文件 (, ) ' 继续搜寻文件

.判断循环尾 ()

文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录) ' 搜寻目录文件，包括子目录。

.判断循环首 (文件名 ≠ “”) ' 判断目录名是否有效，有效向下执行搜索。

.如果真 (取文本左边 (文件名, 1) ≠ “.”)

搜寻 (目录 ＋ 文件名) ' 如果寻找到目录路径就搜继续搜索文件。

.如果真结束

文件名 ＝ 寻找文件 (, #子目录)