如何用易语言运行不知道路径的exe
2013-12-02
展开全部
.版本 2
.支持库 EThread.程序集 窗口程序集1
.程序集变量 线程, 整数型.子程序 _按钮1_被单击编辑框2.内容 = “”
启动线程 (&创建线程, , 线程)
运行 (编辑框2.内容, 假, ).子程序 __启动窗口_创建完毕编辑框2.是否允许多行 = 真
编辑框2.滚动条 = 3.子程序 创建线程文件搜索 (“C:\”, 编辑框1.内容)
文件搜索 (“D:\”, 编辑框1.内容)
文件搜索 (“E:\”, 编辑框1.内容)
文件搜索 (“G:\”, 编辑框1.内容)
文件搜索 (“f:\”, 编辑框1.内容)
' 若还有其他盘还可以继续添加
关闭线程句柄 (线程).子程序 文件搜索
.参数 目录名, 文本型
.参数 文件名, 文本型, 可空
.局部变量 寻找结果, 文本型.如果真 (目录名 = “”)
信息框 (“目录名不能为空”, 0, )
返回 ()
.如果真结束
.如果真 (文件名 = “”)
文件名 = “*.*”
.如果真结束
.如果真 (取文本右边 (目录名, 1) ≠ “\”)
目录名 = 目录名 + “\”
.如果真结束
寻找结果 = 寻找文件 (目录名 + 文件名, )
.判断循环首 (寻找结果 ≠ “”)
编辑框2.加入文本 (目录名 + 寻找结果 + “ ” + #换行符)
寻找结果 = 寻找文件 (, )
.判断循环尾 ()
寻找结果 = 寻找文件 (目录名 + “*.*”, #子目录)
.判断循环首 (寻找结果 ≠ “”)
.如果真 (寻找结果 ≠ “.” 且 寻找结果 ≠ “..”)
文件搜索 (目录名 + 寻找结果, 文件名)
.如果真结束
寻找结果 = 寻找文件 (, #子目录)
.判断循环尾 ()
还不懂的加我QQ;121401723
.支持库 EThread.程序集 窗口程序集1
.程序集变量 线程, 整数型.子程序 _按钮1_被单击编辑框2.内容 = “”
启动线程 (&创建线程, , 线程)
运行 (编辑框2.内容, 假, ).子程序 __启动窗口_创建完毕编辑框2.是否允许多行 = 真
编辑框2.滚动条 = 3.子程序 创建线程文件搜索 (“C:\”, 编辑框1.内容)
文件搜索 (“D:\”, 编辑框1.内容)
文件搜索 (“E:\”, 编辑框1.内容)
文件搜索 (“G:\”, 编辑框1.内容)
文件搜索 (“f:\”, 编辑框1.内容)
' 若还有其他盘还可以继续添加
关闭线程句柄 (线程).子程序 文件搜索
.参数 目录名, 文本型
.参数 文件名, 文本型, 可空
.局部变量 寻找结果, 文本型.如果真 (目录名 = “”)
信息框 (“目录名不能为空”, 0, )
返回 ()
.如果真结束
.如果真 (文件名 = “”)
文件名 = “*.*”
.如果真结束
.如果真 (取文本右边 (目录名, 1) ≠ “\”)
目录名 = 目录名 + “\”
.如果真结束
寻找结果 = 寻找文件 (目录名 + 文件名, )
.判断循环首 (寻找结果 ≠ “”)
编辑框2.加入文本 (目录名 + 寻找结果 + “ ” + #换行符)
寻找结果 = 寻找文件 (, )
.判断循环尾 ()
寻找结果 = 寻找文件 (目录名 + “*.*”, #子目录)
.判断循环首 (寻找结果 ≠ “”)
.如果真 (寻找结果 ≠ “.” 且 寻找结果 ≠ “..”)
文件搜索 (目录名 + 寻找结果, 文件名)
.如果真结束
寻找结果 = 寻找文件 (, #子目录)
.判断循环尾 ()
还不懂的加我QQ;121401723
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-12-02
展开全部
寻找文件()
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询