复制过去直接就可用
.版本 2
.支持库 EThread
.程序集 程序窗口程序集
.程序集变量 线程, 整数型
.子程序 创建线程
文件搜索 (“D:\”, )
文件搜索 (“E:\”, )
文件搜索 (“F:\”, )
关闭线程句柄 (线程)
.子程序 文件搜索
.参数 目录名, 文本型
.参数 文件名, 文本型, 可空
.局部变量 寻找结果, 文本型
文件名 = 编辑框1.内容
.如果真 (目录名 = “”)
信息框 (“目录名不能为空”, 0, )
返回 ()
.如果真结束
.如果真 (文件名 ≠ “”)
.如果真结束
.如果真 (取文本右边 (目录名, 1) ≠ “\”)
目录名 = 目录名 + “\”
.如果真结束
寻找结果 = 寻找文件 (目录名 + 文件名, )
.判断循环首 (寻找结果 ≠ “”)
编辑框1.内容 = 目录名 + 寻找结果 + “ ” + #换行符
寻找结果 = 寻找文件 (, )
运行 (编辑框1.内容, 假, )
.判断循环尾 ()
寻找结果 = 寻找文件 (目录名 + “*.*”, #子目录)
.判断循环首 (寻找结果 ≠ “”)
.如果真 (寻找结果 ≠ “.” 且 寻找结果 ≠ “..”)
文件搜索 (目录名 + 寻找结果, 文件名)
.如果真结束
寻找结果 = 寻找文件 (, #子目录)
.判断循环尾 ()
.子程序 _按钮1_被单击
启动线程 (&创建线程, , 线程)
.子程序 _编辑框1_内容被改变
.如果 (编辑框1.内容 ≠ “”)
按钮1.禁止 = 假
.否则
按钮1.禁止 = 真
是否可以解决您的问题?
这个就是寻找hamachi-2-ui.exe并打开的代码,hamachi-2-ui.exe这个文件是hamachi虚拟局域网软件的组件