1、.支持库 EThread.程序集 窗口程序集1.程序集变量 线程, 整数型.子程序 _按钮1_被单击编辑框2.内容 ＝ “”启动线程 (&创建线程, , 线程).子程序 __启动窗口_创建完毕编辑框2.是否允许多行 ＝ 真
3、' 若还有其他盘还可以继续添加关闭线程句柄 (线程).子程序 文件搜索.参数 目录名, 文本型.参数 文件名, 文本型, 可空.局部变量 寻找结果, 文本型.如果真 (目录名 ＝ “”)
5、 目录名 ＝ 目录名 ＋ “\”.如果真结束寻找结果 ＝ 寻找文件 (目录名 ＋ 文件名, ).判断循环首 (寻找结果 ≠ “”) 编辑框2.加入文本 (目录名 ＋ 寻找结果 ＋ “ ” ＋ #换行符) 寻找结果 ＝ 寻找文件 (, )
