简易全盘查找指定文件

.如果 (按钮1.标题 ＝ “停止”)
强制结束线程 (开始查找线程句柄)
强制结束线程 (开始查找2线程句柄)
标签1.标题 ＝ “已停止!”
按钮1.标题 ＝ “开始搜索”
编辑框2.禁止 ＝ 假
.否则
.如果 (编辑框2.内容 ＝ “欲寻文件名(包含后缀)”)
信息框 (“请输入欲查找的文件(包含后缀)”, #信息图标, “温馨提示”)
.否则
.如果 (编辑框2.内容 ＝ “”)
信息框 (“请输入欲查找的文件(包含后缀)”, #信息图标, “温馨提示”)
.否则
启动线程 (&开始查找, , 开始查找线程句柄)
按钮1.标题 ＝ “停止”
标签1.标题 ＝ “请稍后.”

所有盘符 ＝ 取空白字节集 (256)
标签2.标题 ＝ 到文本 (所有盘符)
返回值 ＝ GetLogicalDriveStrings (256, 所有盘符)
所有盘符 ＝ 取字节集左边 (所有盘符, 返回值)
盘符 ＝ 分割字节集 (所有盘符, { 0 }, )
.计次循环首 (取数组成员数 (盘符), 索引)
.如果真 (文件是否存在 (到文本 (盘符 [索引]) ＋ 编辑框2.内容))
跳出循环 ()
.如果真结束
列表 (到文本 (盘符 [索引]), 编辑框2.内容)
.计次循环尾 ()