=
寻找文件
(文件夹目录
+
“/”,
)
判断循环首
(临时文件名
≠
“”)
文件个数
= 文件个数
+ 1
临时文件名
=
寻找文件
(,
)
判断循环尾
()
以上只能取一个文件夹里的文件数,还不包括子目录里的。 你可以先寻找文件夹里的子目录把他放在一个数组变量里,用多次寻找文件指令把所有文件里和子目录里的文件都加起来就可以了。
具体的命令使用你看一下核心支持库-磁盘 *** 作-寻找文件的帮助楼主先在窗口里放一个超级列表框 然后复制以下代码,不懂可以追问哦
版本 2
支持库 iext
支持库 shell
子程序 __启动窗口_创建完毕
局部变量 用户选择的目录, 文本型
局部变量 文件名, 文本型
超级列表框1类型 = 3
超级列表框1显示表格线 = 真
超级列表框1插入列 (, “文件名”, 500, , , )
用户选择的目录 = 浏览文件夹 (“请选择目录”, )
如果真 (用户选择的目录 = “”)
结束 ()
如果真结束
用户选择的目录 = 用户选择的目录 + “\”
文件名 = 寻找文件 (用户选择的目录 + “”, )
判断循环首 (文件名 ≠ “”)
如果真 (取文件尺寸 (用户选择的目录 + 文件名) < 512000)
超级列表框1插入表项 (, 文件名, , , , )
如果真结束
文件名 = 寻找文件 (, )
判断循环尾 ()mp3 这么写可以搜索到 代表所有的 mp3 代表这种格式的隐藏的文件你必须把隐藏文件改成可以看见的在工具里选择文件选项然后选查看 查找 一个单选项 叫显示所有文件或文件夹版本
2
支持库
spec
支持库
eAPI
程序集
窗口程序集1
程序集变量
D,
逻辑型
子程序
__启动窗口_创建完毕
局部变量
计次容器,
整数型
局部变量
盘符,
文本型,
,
"0"
调试输出
(取驱动器列表
(#接口常量硬盘驱动器))
盘符
=
取驱动器列表
(#接口常量硬盘驱动器)
计次循环首
(取数组成员数
(盘符),
计次容器)
调试输出
(文件搜索
(盘符
[计次容器],
“QQexe”,
标签1))
计次循环尾
()
子程序
文件搜索,
文本型,
,
在指定目录下搜索文件,返回第一个符合条件的文件路径
参数
临时目录,
文本型,
,
欲寻找的目录
参数
文件名,
文本型,
,
欲寻找文件名
参数
显示标签,
标签,
,
用来显示搜索路径的标签
局部变量
A,
文本型
局部变量
B,
文本型
局部变量
C,
文本型
D
=
假
临时目录
=
临时目录
+
“\”
处理事件
()
A
=
寻找文件
(临时目录
+
“”,
39)
判断循环首
(A
≠
“”)
显示标签标题
=
临时目录
+
A
如果真
(A
=
文件名)
返回
(临时目录
+
文件名)
如果真结束
如果真
(D)
返回
(“”)
如果真结束
A
=
寻找文件
(,
)
判断循环尾
()
B
=
寻找文件
(临时目录
+
“”,
16)
判断循环首
(B
≠
“”)
如果真
(B
≠
“”
且
B
≠
“”)
C
=
文件搜索
(临时目录
+
B,
文件名,
显示标签)
如果真
(C
≠
“”)
返回
(C)
如果真结束
如果真结束
B
=
寻找文件
(,
#子目录)
判断循环尾
()
返回
(“”)
窗口控件
一个标签
这是全盘搜索
如果你是想获得QQ的路径的话
你其实可以读取注册表
里面有QQ路径用寻找文件()
第一次输入查找信息调用寻找文件,返回的是符合目标的文件名 寻找文件(数据,数据)
第二次直接打空数据 寻找文件(,) 返回第二个符合条件的
最后没有了就返回别的,看说明
字不够搜索全名的 会不? 然后把所有文件的名字都逐步搜索出来 然后一一比对 含有启动的 就是你要的了参考:================================================================
版本 2
支持库 shell
子程序 _按钮1_被单击
局部变量 目录, 文本型
目录= 浏览文件夹 (“请选择目录:”, )
如果 (取文本右边 (目录, 1) ≠“\”)
目录= 目录 +“\”
否则
如果结束编辑框1内容 = 目录寻找(目录)
子程序 寻找
参数 文件夹, 文本型
局部变量 文件, 文本型
处理事件 ()
如果 (取文本右边 (文件夹, 1) ≠“\”)
文件夹 = 文件夹 +“\”
否则
如果结束文件= 寻找文件 (文件夹 +“mp3”, )
判断循环首 (文件 ≠“”)
列表框1加入项目 (文件夹 + 文件, )
文件= 寻找文件 (, )
判断循环尾 ()
文件= 寻找文件 (文件夹 +“”, #子目录) ' 此时 文件就变成了新的文件夹
判断循环首 (文件 ≠“”)
如果真 (文件 ≠“”且 文件 ≠“”)
寻找(文件夹 + 文件) ' 寻找新的文件夹
如果真结束
文件= 寻找文件 (, #子目录)
判断循环尾 ()
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)