按时间搜索文件代码
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮_搜索_被单击
文件搜索 (“C:”, “*.*”)
.子程序 文件搜索
.参数 欲寻找的目录, 文本型, , 如：C:,表示C盘,记得C字后面两点一定要写
.参数 欲寻找的文件名, 文本型, , 如果寻找全部文件可以填入*.*或*.txt只找txt文件
.局部变量 局部_子目录, 文本型
.局部变量 局部_文件名, 文本型
.局部变量 局部_文件时间, 日期时间型
.局部变量 局部_项目索引, 整数型
.如果真 (取文本右边 (欲寻找的目录, 1) ≠ “\”)
欲寻找的目录 ＝ 欲寻找的目录 ＋ “\”
.如果真结束
局部_文件名 ＝ 寻找文件 (欲寻找的目录 ＋ 欲寻找的文件名, )
.判断循环首 (局部_文件名 ≠ “”)
局部_文件时间 ＝ 取文件时间 (欲寻找的目录 ＋ 局部_文件名)
.如果真 (局部_文件时间 ＞ 日期框_起始.今天 且 局部_文件时间 ＜ 日期框_结束.今天)
局部_项目索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (局部_项目索引, 0, 欲寻找的目录 ＋ 局部_文件名)
超级列表框1.置标题 (局部_项目索引, 1, 到文本 (局部_文件时间))
.如果真结束
处理事件 ()
局部_文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
局部_子目录 ＝ 寻找文件 (欲寻找的目录 ＋ “*.*”, #子目录)
.判断循环首 (局部_子目录 ≠ “”)
.如果真 (取文本左边 (局部_子目录, 1) ≠ “.”)
处理事件 ()
文件搜索 (欲寻找的目录 ＋ 局部_子目录 ＋ “\”, 欲寻找的文件名)
.如果真结束
局部_子目录 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
|
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接