参考:
================================================================
.版本 2
.支持库 shell
.子程序 _按钮1_被单击
.局部变量 目录, 文本型
目录 = 浏览文件夹 (“请选择目录:”, )
.如果 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.否则
.如果结束
编态雹辑框1.内容 = 目录
寻找 (目录)
.子程序 寻找
.参数 文件夹, 文本型
.局部变量 文件, 文本型
处理事件 ()
.如果改哪 (取文本右边 (文件夹, 1) ≠ “\”)
文件夹 = 文件夹 + “\”
.否则
.如果结束
文件 = 寻找文件 (文件夹 + “*.mp3”, )
.判断循环首 (文件 ≠ “”)
列表框1.加入项目 (文件夹 + 文件, )
文件 = 寻找文件 (, )
.判断循环尾 ()
文件 = 寻找文件 (文件夹 + “帆歼帆*.*”, #子目录) ' 此时 文件就变成了新的文件夹
.判断循环首 (文件 ≠ “”)
.如果真 (文件 ≠ “.” 且 文件 ≠ “..”)
寻找 (文件夹 + 文件) ' 寻找新的文件夹
.如果真结束
文件 = 寻找文件 (, #子目录)
.判断循环尾 ()
=================================================================
你好。这个完全可以通过易语言实现。这个比较简单,就直接给源码了吧。双击易语言窗口,输入以下源码:
-----------------------------------------
启动线程
(&创建线程旁闹,
,
线程)
.子程序
创建线程
文件搜索
(“C:\”,“你要打开的文件”)
文件搜索
(“D:\”,“你要打开的文件”)
文件搜索
(“E:\”,“你要打开的文件”)
文件搜索
(“F:\”,“你要打开的文件”)
'
若还有其他盘运族罩还可以继续添加
关闭线程句柄
(线程)
.子程序
文件搜索
.参数
目录名,
文本型
.参数
文件名,
文本型,
可空
.局部变量
寻找结果,
文本型
.如果真
(目录名
=
“”)
信息框
(“目录名不能为空”,
0,
)
返回
()
.如果真结束
.如果真
(文件名
=
“”)
文件名
=
“*.*”
.如果真结束
.如果真
(取文本右边
(目录名,
1)
≠
“\”)
目录穗孙名
=
目录名
+
“\”
.如果真结束
寻找结果
=
寻找文件
(目录名
+
文件名,
)
.判断循环首
(寻找结果
≠
“”)
寻找结果
=
寻找文件
(,
)
.判断循环尾
()
寻找结果
=
寻找文件
(目录名
+
“*.*”,
#子目录)
.判断循环首
(寻找结果
≠
“”)
.如果真
(寻找结果
≠
“.”
且
寻找结果
≠
“..”)
文件搜索
(目录名
+
寻找结果,
文件名)
.如果真结束
寻找结果
=
寻找文件
(,
#子目录)
.判断循环尾
()
运行
(“你要打开的文件名字”,
假,
)
或者
运行
(寻找结果,
假,
)
-------------------------------------------
运用以上源码就可以了。不过为了防止打开错误或者因为无法分辨而打开多个文件夹,需要在路径处详细填写,如:DNF\start,把包含start这个子文件夹的主文件夹路径详细写进去,就会自动搜索并打开了。
~~~~~~~Aesthet1c非常荣幸为您回答,如果不明白欢迎追问,满意请采纳。祝你好运!~~~~~~~
用“取运行目录()”
就可以得到当前差野段脊搏程序所在的文件夹了。
如果程序和一个
123.txt
文虚誉件在同一个文件夹里。
那么123.txt的路径就是
取运行目录()+"\123.txt"
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)