易语言按时间范围搜索指定类型文件的代码

.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮_搜索_被单击
文件搜索 (“C:”, “*.*”)
.子程序 文件搜索
.参数 欲寻找的目录, 文本型, , 如：C:,表示C盘,记得C字后面两点一定要写
.参数 欲寻找的文件名, 文本型, , 如果寻找全部文件可以填入*.*或*.txt只找txt文件
.局部变量 局部_子目录, 文本型
.局部变量 局部_文件名, 文本型
.局部变量 局部_文件时间, 日期时间型
.局部变量 局部_项目索引, 整数型
.如果真 (取文本右边 (欲寻找的目录, 1) ≠ “\”)
  欲寻找的目录 ＝ 欲寻找的目录 ＋ “\”
.如果真结束
局部_文件名 ＝ 寻找文件 (欲寻找的目录 ＋ 欲寻找的文件名, )
.判断循环首 (局部_文件名 ≠ “”)
  局部_文件时间 ＝ 取文件时间 (欲寻找的目录 ＋ 局部_文件名)
  .如果真 (局部_文件时间 ＞ 日期框_起始.今天 且 局部_文件时间 ＜ 日期框_结束.今天)
    局部_项目索引 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (局部_项目索引, 0, 欲寻找的目录 ＋ 局部_文件名)
    超级列表框1.置标题 (局部_项目索引, 1, 到文本 (局部_文件时间))
  .如果真结束
  处理事件 ()
  局部_文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
局部_子目录 ＝ 寻找文件 (欲寻找的目录 ＋ “*.*”, #子目录)
.判断循环首 (局部_子目录 ≠ “”)
  .如果真 (取文本左边 (局部_子目录, 1) ≠ “.”)
    处理事件 ()
    文件搜索 (欲寻找的目录 ＋ 局部_子目录 ＋ “\”, 欲寻找的文件名)
  .如果真结束
  局部_子目录 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()